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INTRODUCTION 



This manual is one in a series of publications that support the Western 
Digital Corporation UCSD Enseal (TM) III.0 Operating System# This eperatiner 
system, UCSD Fhscal(TM), vsbs developed at the University of California, San 
Diego, but has been enhanced and refined by The MicroEngine Cenpany (a sub- 
sidiary of Efestem Digital Corporation) • 

This manual is not tutorial in nature and does not describe the operational 
aspects of the softv^re. ffc^^ver, the first four chapters are written to 
provide new users with a quick grasp of the system cormand structure, the 
Editors, and the Filer. This book is intended to be a reference nanual for 
users of the III.0 Operating Syston. 

ORGANIZATIOSr OF THIS MANUM^ 



This reference manual is divided into seven main chapters and ten appendices. 

• Chapter 1 provides an overview of the III.0 Operating System including 
a general explanation of the outer and inner command levels. 

• Chapter 2 contains discussions of some system fundamental concepts - 
nam^y, files and vctLimes. 

• Chapter 3 describes four system editors: The Screen-Oriented Editor, 

the Advanced Editor, the L2 Editor, and YAIOE (Yet Another Line- 
Oriented Editor) . 

• Chapter 4 discusses the system File Handler (Filer). 

• Chapter 5 describes the Ehscal Compiler. 

• Chapter 6 provides information on numerous system utility programs 
that are part of the III.0 Operating ^stem. 

• Chapter 7 explains some I^soal prograrrming considerations for using 
"the III.0 Operating System on ME1600 and SB1600 computer systems. 

• i^pendix A lists camiand summaries for the outer level of oatmands, 
the Screen-Oriented Editor, the Line-Oriented Editor (YALOE), the 
Filer, and the Enseal Compiler. 

• i^pendix B contains several tables of information: 

Run-Time Errors 
l/O Results 
Syntax Errors 
Unit Numbers 
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• Appendix C contains tables of the P-nachine opcodes, operator 
execution times, and the opcodes in a Pascal -I ike Metalanguage. 

• ;^pendix D is an ASCII code chart. 

• Ippendix E lists the UCSD EfeiscalClM) reserved vords. 

• Appendix F shows UCSD syntax diagrams. 

• i^pendix G ccaitains tables of ME1600 and SB1600 l/O addresses. 

• Appendix H lists tlie ME1600 and SB1600 boot and initialization 
diagnostic messages. 

• i^pendix I gives the code for the system ^otoals of the H3 release 
of the III.0 Operating System. 

• T^pendix J describes the lardware and software changes for the oper- 
ating systen from versions G0 to H3. 

• i^pendix K is a glossciry of terms. 

Please submit the Publication Ooftment Form (located at the back of this 
manual) with any caiments about this document to: 

THE MICROENGINE COMPANY 
Subsidiary of Vfestem Digital Corp. 

2445 McCabe Vfey 

Irvine, California 92714 

ATIN: Product Documentation 

***** 



This guide was prepared and edited using the 
Western Digital Pascal (IM) Screen-Oriented Editor. 




RELATED DoojyiEisrrs 



The jBol lowing publications provide additional information on 1600 Series 
SuperMicro Carputer Systems* 

• ME1600 Modular Series SuperMicro Computer System Install ation/Operation 
Guide (order niiiiber ME1690). 

Ihis book provides basic information for setting ip a new ME1030 corputer 
system. 

• MICRQENGINE(TM) Computer^Svstems Peripheral Device Oonficajration Guide 
(order number ME1692). 

This guide describes procedures for configuring nonstandard peripheral 
devices to be installed with 1600 series systems. 

• Getting Started with the \ffestern Digital 1600 Se ries Supert^cro 
CoTiPuter System (order number ME1694). 

This document briefly describes the major ccnponents of the III.0 
Operating System and steps the user through one simple session using 
the system. It is included as part of the set of documents to 
accoipany the 1600 product line. 

• SB 1600 Series SuperMicro Computer System Install ation/Operation Guide 
(order number SB1690). 

This book provides basic information for setting up a new SB1600 canputer 
systan. 

• Introduction to Pascal Including OOSD Enseal by Rodney Zaks (order 
nuiiber WD9891). 

This book introduces the reader to the Pascal programning language. 

• Beginner's Guide for the UOSD fiscal System by K. Bowles (order number 
WD9892 ) . 

This tutorial book aids in understanding and gaining femiliarity with 
the UCSD Pascal (TM) operating system. 



For copies of these dociments, see your Vfestern Digital sales representative. 
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1. OVERVIEW CF THE III.0 OPERATING SYSTEM 



The Western Digital UCSD Pascal (IM) III.0 Cperating system is designed to 
run on the ME1600 and SB1600 SuperMicro Series Gctiputer System produced 
by The MicroEngine Gorrpany, subsidiary of ^festem Digital Corporation. 

This operating system is an enhanced version of the UCSD Pascal (IM) III.0 
Operating System. 

Basically a single-user program development system, the III.0 Operating 
System provides a ccmplete aivirorment for both program development and 
execution and text processing. Oonprised of several modules plus numerous 
utility programs, the III.0 Operating System is a multitasking operating 
system. 

This operating syst«an allows multiple tasks to run concurrently based on 
priority. 

Ihe major oorponents of the III.0 Operating System are listed below and are 
discussed in this manual; also, a chapter pertaining to Pascal programrning 
is included. 

• System Filer. 

• SystQTi Editors (Screen-Oriented, L2, Advanced, and YALOE). 

• Systen Compiler (UCSD Enseal). 

• S^ston Utilities. 

The overall structure of the III.0 Operating System in regard to commands is 
discussed in this chapter. 
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1.1 III.0 OPERATING SYSTjEVI STRUCHIRE 



The II 1.0 Ctoerating System ocmnand structcure is cxanpDsed of an outer level 
of Gontnands and an inner level of cannands. Ihe outer level of cxannands 
allows access to the inner level of conmands or enables performance of 
specific functions. For exartple, typing an E from the outer level ccrrinand 
line accesses the Screen-Oriented Editor, \Ahich, in turn, displays a canraand 
prompt line (inner level of oarmands); or typing an X from the outer level 
ccrrmand line executes a code file (performance of a specific function) . 

The relationship of the outer level of commands and the inner levels of 
commands is shown in Figure 1-1. 

The fol laving two subsections discuss the outer level of commands and the 
inner level of caimands, respectively. 
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/ INNER LEVEL COMMANDS 

> Edit: A(djt C(py D(lete F(ind I(nsrt J(mp R(p1ace Q(uit X(chng Z(ap ? 

^ ^ 

? = '>move[<arrow>,<sp>,<ret>,=, P(age], di rection[<,>] , M(rgn, S(et, V(rfy ' 



INNER LEVEL COMMANDS 

Filer: G(et, S(ave, W(hat, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

^ ^ 

? = '‘^Filer: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(als, X(amine, Z(ero 



NOTE 

Typing a "?" causes the second (unseen) 
command prompt line to be displayed. 



Figure 1-1. III.0 Operating System Command Structure. 





1.2 OUTER LEVEL CF OGMyiANDS 



The outer level of oannands is autcmatically displayed across the top of 

the screen in the fbllcwing three cases: (1) after bcoting or autonatic 
execution of the operating system; (2) after any of the lower levels 
have oonpleted execution; and (3) after ccmpletion of any outer level 
ccmraand (for exanple, after execution of a program.) 

The outer level of commands is as showai below. (The second line of ccmnands 
is not displayed on the cathode-ray tube (CRT) screen unless a ? is 
typed. ) 



I Oannand: E(dit, R(un, F(ile, C(cnip, L(irik, X(ecute, D(ebug? 1 

I I 

I ? = Coranand: A(da, U(ser restart, I(nitialize, H(alt I 



The individual command is executed by typing the character that inmediately 
precedes the (. Ihis character is capitalized in the prompt, but all 
system ooimand characters may be entered in upper or lower case. 

Each outer level command causes execution of a program cxi the systan 
diskette named "SYSTEM. <function-name>", v^here <function-name> is, for 
exairple, editor, filer, or cortpiler. 

The following paragraphs briefly describe the outer level of coraraands, vhich 
are discussed in more detail in this manual. 

• E(dit 

The E(dit command invokes one of the available system editors. 

The Editors are system programs that allow insertion or 
deletion of information, finding and replacing character 
strings, changing text format, copying information, and other 
text manipulations within a file. 

Entering an E causes the Screen-Oriented Editor to be brought into 
memory from disk. If the system console is a CRT, the Screen- 
Oriented Editor is executed. If a work file is present, it is 
automatically read into the Editor buffer. Otherwise, the 
Editor prompts for a file. 
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• R(un 

Entering an R causes the code file associated with the current 
work file to be executed. If a code file does not currently 
exist, the system Ctitpiler is called autanatically. If the 
ccrapilation requires linkage to separately catpiled code, the 
Linker also is called autcmatically and assumes the use of the 
file *SYSTEM.LIBR?^Y. The program is executed after a successful 
ccmpilation and linkage. 

• F( ile 

Entering an F calls the File Handler (Filer) into matiory from 
disk. Ihe inner level of ccrntnands for the Filer is displayed 
in a pro mpt line across the top of the screen after an F is 
entered . 

Ihe Filer is a systam program that provides file maintenance 
capabilities. For example, the Filer provides facilities 
for (1) moving, copying, and deleting files; (2) listing 
volume directories; (3) ciiecking disk or diskette storage 
for damage or recording errors; (4) naming, or changing 
the name of, volumes and files; and (5) listing the peripheral 
devices and volumes currently on line. 

• C(omp 

Entering a C initiates the Pascal compiler. If a work file 
exists the Corpiler autcmatically corpiles the work file; 
otherwise, a prompt for the file to be ocnpleted is displayed. 

Ihe Pascal Ccnpiler reads a text file that contains Pascal 
language statements (source) and converts the statements into 
executable mchine instructions (P-codes). 

• L(ink 

Entering an L starts the Linker program which allows routines 
to be linked from libraries other than *SYSTEM. LIBRARY. 

• X(ecute 

Entering an X allows execution of a compiled code file. A 
prompt asking for the name of the file to be executed is 
displayed. 

Execution of a program is the actual use of the code file to 
instruct the computer to do the task for which tlie program 
is designed. 
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If the file requested is presentj it is executed. If the 
file is not present (or tiie progran naome is misspelled); 
the message "No file <file name>.C30DE" is displayed. 

If the code file is ocnposed of several separately oairoiled 
files, one of vhich has not been linked, the message "Must 
link first" is displayed. 



I NOTE I 



The ".CODE" suffix cn a compiled file is inplicit 
and should not be entered as part of the file 
name. 

Programs (particularly programs not yet compiled) can be 
executed by use of F(ile, G(et the file, Q(uit the Filer, 
and R(un the file. 

Ihe X(ecute ocmmand is used to execute the system utilities, 
like PATCH, SEOTP, and so forth. (See Chapter 6 for the 
details of the syst^ utilities.) 

• D(dDug 

Entering a D causes the Debugger utility to be called. If 
the vork file is not carpiled or linked, the Compiler and 
Linker are automatically ®cecuted so that a valid code file 
exists. The D^ugger then allows breakpoints to be inserted 
in the code file and program memory and state to be examined. 
(See Section 6.15 for details of the Debugger.) 

• ? 

Ihe ? is typed to cause the second (and unseen) line of 
outer level comnands to be displayed c*i the screen. 

• A(da 

Sitering an A causes the MicroAda(TM) compiler to be called 
if the conpiler is available as part of the operating system. 
If the conpiler is not present, the message "No file: SYSTEM. 
ADACCMP" is displayed. 

Hie MicroMa('IM) conpiler reads a text file ccxitaining Ada 
language statements (source) and converts those statements 
into machine-executable instructions. 
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• U(ser restart 

Elntering a U causes the system to begin executing the program 
or option last used. Using this canniand is quicker and 
requires fewer keystrokes than reexecuting the program or 
reinitiating a specific ccmmand. 

• I(nitialize 

Entering an I causes tlie operating s^^tem to be reinitial izied. 
That is, the III.0 Cperating System is restarted and the outer 
level cannand line is displayed. Ihe assigned volume as the 
default volume (Filer P( refix ccmnand) is maintained across the 
restart. 

Using the I(nitialize ccmmand is not as drastic as using 
restart button to reinitialize the systan. 

• H(alt 

Entering an H causes the III.0 Operating System to terminate; 
use of this ocmmand is not reccmmended. The system must be 
reinitialized by using the restart button. The initialization 
sequence and loading of the system files from disk to memory 
occur as if the system had just been "powered on" . 
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1.3 INNER LEVEL OF (XmPMB 



inn©E“ l0v©ls of gq iiusrid.s 9x0 9 CC 0 ss©ci ^110 comBrid ^xonpts of ■tii0 

outer l 0 vel of ccrnraands. A brief ejqjlanation of the inner level aonraands is 
presented in the following subsections. Ihe various ocmmands are explained 
in more detail in other chapters of this nanual. 



1.3.1 E(dit 



Any one of the fbur editors may be executed vhen E is entered 
frcm the outer level ccmriand line, depending cn \^hich editor is named 
SYSTEM. EDITOR. Ihe Screen-Oriented Editor is named SYSTEM. EDITOR on the 
operating system disk shipped from the fectory, but the any of the other 
editors could be designated as the system editor. If not renamed, the other 
editors can be executed by entering X frcm the outer level coimand line 
followed ty the file name. 



Screen-Oriented Editor 



This editor is specifically designed for use with video display terminals 
(CRTs). This editor provides facilities for manipulating text in the work 
file or in any text file. Ihe inner level of ccrnraands accessed through the 
Edit ooimand is shown belcw. (The second line of cormands is not displayed 
on the screen unless a ? is entered frcm the E(dit prcmpt line.) 



I >Edit:A(djst C(py D(lete F(ind I(nsrt J(irp R(place Q(uit X(dhng Z(ap ? 1 

I I 

I ?= >moveC<arrows>, <sp>, <ret>,=,P(age) ,direction[<, >],M(rgn,S(et,V(r:fy I 



Table 1-1 presents a brief explanation of these ccramands. (See Chapter 3 
for detailed explanations of the ccnmands . ) 
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Table 1-1. E(dit Ctortiiiands (Page 1 of 2). 



Cannand 



Explanation 



A(djst 

c(py 

D(lete 

F(ind 

I(nsrt 

J(rtp 

R (place 

Q(uit 

X(chng 



Z(ap 






The adjust ccrnnand allows a line bo be diifted left, 
right, or centered. 

The copy conmand allows text tD be copied from the 
buffer or a file into the file being edited. 

The delete carmand allows text to be removed fran 
the file being edited. 

The find carmand allcws a specified string of 
characters to be located in the file being edited. 

The insert catmand allows characters or spaces to 
be added to the file being edited. 

The jurrp oaimand allows the cursor to be moved 
quickly through the file being edited to specific 
points - namely, to the beginning or aid of the 
file and to markers set within the file. 

The replace catmand allows a specified string of 
characters in the file being edited to be 
automatically replaced with a designated string 
of characters. (Several options regarding the 
R (place conmand are explained in Qiapter 3.) 

The quit carmand terminates the editing session. 
Several options regarding the edited file are 
available vhen the session is terminated. 

The exchange carmand allows a character- for- 
character change to be effected. That is, 
a character or space typed over the existing 
text replaces the existing text with the new 
character . 

The zap camrand allcws sections, lines, words, 
and so forth of text to be deleted from the 
file being edited. The text being deleted is 
stored in the buffer. 

The ? is typed to cause the second (and unseen) 
line of E(dit conmands to be displayed on the 
screen. 



Page 



1 < 9 ! 




Gonmand 

move 

[<arrxxv?s>, 

=,P(age] 

direction 

M(rgn 

S(et 

V(rfy 



Table 1-1. E(dit Gcnmands (Page 2 of 2), 



Explanation 



This groL^) of actions and the P(age cotinand 
<sp>,<ret>. allow movement through the file being edited. 



[<,>] This group of actions allows right, left, 

up, and down movement through the file 
being edited. 

The margin ccrnmand is used in conjunction with 
the S(et cormand to allow paragraph rtargins to 
be specified and automatically adjusted. This 
carmand is dependent on the environment being 
set such tliat FILLING is true and AUTO-INEENT 
is false. 

The set cannand allows the environment to be 
changed or markers bo be set in the file being 
edited. 

The veri:fy ocrrmand redisplays the text window 
with the line containing the cursor positioned 
at the center of the screen. 
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Advanced Ekiitor (ADV. EDITOR) 



The Advanced Editor (ADV, EDITOR) can be renamed SYSTEM, EDITOR and called by 
entering an E from the outer level ccmtnand prompt line. Alternately, this 
editor can be executed by ^tering an X followed by ADV. EDITOR as the file 
name. This editor is an enhanced version of tlie Screen-Oriented Editor. 
(See Section 3.2.) 



L2 Editor (L2) 



Ihe L2 Editor (L2), unless renamed SYSTEM. EDITOR, is executed by entering an 
X from the outer level ccmtnand proipt line follcR«ed by L2 as tlie fils 
name. The L2 Editor is a version of the Screen-Oriented Editor \rthich 
allows editing of large files vhich cannot be contained in main memory at 
one time. (See Section 3.3.) 



Line-Oriented Editor (YALOE) 



The Line-Oriented Editor, YALOE, is executed from the outer level ocrtinand 
prorrpt line by entering an X follOA^ by YALOE as the file name. Ihis 
editor is used vhen the system console is a teleprinter. This editor, like 
the Screen-Oriented Editor, provides facilities for inserting, modi:fying, 
and deleting text in the work file or any text file. (See Section 3.4.) 



1.3.2 File Handler (Filer) 



The Filer is the module of the III.0 Operating System that is used for 
maintenance of files stored on disk. The Filer is used to view the directory 
of files, to copy or transfer files between disks, and other file 
maintenance tasks. The inner level of ocmmands accessed through the F(ile 
ccitmand is ^own below. (The second line of canmands is not displayed on 
the screen unless a ? is entered from the F(ile ccmmand prompt line.) 



I Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit | 

I , I 

|?=Filer: B(ad-blks, E(xt-dir, Krnch, M(ake, P(refix, V(ols, X(amine, Z(ero| 
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Table 1-2 surmarizes the Filer cxamiands. (See Chapter 4 for detailed 
esqjlanations of the aaimands . ) 



Table 1-2. Filer Ccttinands (Page 1 of 2). 



Gamiand 


Explanation 


G(et 


Ihe get ccranand causes the specified file to be 
loaded into meraory frcm disk. 


S(ave 


Ihe save oaimand writes the work file to disk as 
the file name specified in response to the "Save 
as <file narae>?" or "Save as v»hat file?" prompts. 


W(hat 


Ihe vihat oarmand displays the name and status 
(saved or not saved) of the vvork file. 


N(ew 


Ihe new coimand clears the vork file space. 


L(dir 


Ihe list directory oarmand lists the disk 
directory to the volume and file specified. 


R(em 


Ihe remove oarmand removes file entries frcm the 
directory. 


C(hng 


Ihe change oarmand changes the name of a file 
or a volume. 


T(rans 


Ihe transfer oarmand cxDpies the specified file(s) 
to a given destination, leaving the source file 
intact. 


D(ate 


Ihe date cxirmand allows the system date to be 
changed. 


Q(uit 


Ihe quit cjormand causes the Filer program to 
terminate and returns control to the outer level 
carmand structure. 


7 


Ihe ? is typed to cause the secorxi (and unseen) 
line of Filer cormands to be displayed on the 
screen. 


B(ad-blks 


Ihe bad-blccks oarmand scans the disk to detect 
bad blocks (corrupted or damaged storage areas) 
on the disk. 
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Coimand 



Table 1-2. Filer Gormands (Page 2 of 2). 



Explanation 



E(xt-dir 



K(mch 



M(ake 



Ihe extended-directory catmand lists the disk 
directory in more detail than the L(dir comiand. 

The additional pieces of information i^own by 
this oormand are (1) in column caie, the unused spaces 
on the disk; (2) in column ts^/o, the beginning block 
number of the file; (3) in column tliree, the number 
of bytes in the last block of the file; and (4) in 
colunn four, the file kind. 

The crunch ccmmand moves the files on the specific 
volume so that all unused blocks are grouped at 
the end of the directory (located in the last 
blocks on the disk) . 

Ihe make catmand creates a new directory entry 
with the name specified. 



P(refix 



V(ols 



X( amine 



Z(ero 



The prefix caimand changes the current default 
volume to the volume specified. 

The volumes oannand lists all the volumes currently 
on line and off line along with their associated 
unit (device) numbers to the system console. 

The examine oantiand attenpts to physically recover 
suspected bad blocks detected by a bad-blocks scan. 

The zero oarraand initializes the directory on tlie 
specified volume with the new volume name specified 
and with all blocks on the disk unused. 
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1.3.3 Other Inner Level Ccnitiands 



The ronaining outer level octmiands (excluding E(dit and F(ile) access 
programs that may ask questions, display menus, or display prorrot lines for 
that specific program, fbr example, the X(ecute octtniand asks for the name of 
the file to be executed. If, for exanple, the system utility program PATCH 
is executed, a series of questions/prarpts and oatmand lines are displayed. 
Ihese varioijs prcnpts, catmands, and menus are also considered inner levels 
of oarmands. 
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THIS E?^GE IS INTITM’IOIsPyXY LEFT BLAlSlK FOR FORMATTING PJRPOSES. 



Page 1-16 




2 , 



SYS'fEM 



This chapter describes the files and volumes (l/O devices) allowed with the 
III.0 Operating Systan. Basic knowledge of the types of files and file 
specifications is essential to effective use of the operating system. 
Likewise, seme basic information regarding the use of volumes is necessary 
to be able to take advantage of the features available in the III.0 
Operating System. 

This chapter provides those essential fects and concepts that enable 
effective progranming and ease of use of the operating system. 
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2.1 FILES 



A file is defined as a body of information or a stream of bytes that is 
usually stored oi an l/O device. lypical exanples of files are programs, 
letters, lists, and text stored on disks or diskettes as v^ell as 
information sent to a printer. For diskettes or disks, a table of contents 
for the files stored on the disk or diskette is maintained. Ihis table of 
contents is called a directory; each file has a separate entry in the 
directory. Any file is referenced according to the file name by a Pascal 
program and by the III.0 Operating %stem. Each entry in the directory is a 
file name. 

Ihe directory shows certain pieces of information regarding the file. The 
file name that is given to the file plus the type of file are two of those 
pieces of information. The most ccrnmon files are either text or code 
files. Text files contain information such as letters, lists, reports, and 
program source statements. Code files contain the P-codes (machine-executable 
information) for a source program. The file type or kind is denoted by the 
suffix appended to the file name. The fbllcwing types of permanent files are 
used by the II 1.0 Operating System; one additional file is used by the III.0 
Operating System - a work file. (This file is discussed separately in a 
following subsection. ) 



Reserved 




Extended Directory 


Suffix 


Cbntents of File 


Listing 



.TEXT tkonan-readable text Textfile 



.CDCE 


Machine-executable code 


Oodefile 


.EATA 


Data file 


Datafile 


.BAD 


A physically damaged area of disk 


Bad file 



These file types are explained nore fully in the following subsections. 

The directory of any given volume is limited to 77 file entries. If the 
directory is full and an attempt to write a new file to that volume is made, 
the following error message results: 



I No rocm on disk 



The above error message also results vhen an area on disk does not exist 
that is large enough to contain the file. 
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2.1.1 Text Files 



A text file contains human-readable text. The text file is coraposed of 
1024 byte pages, v^here a page is defined as; 

<[DLE] [indent] [text] [CR][DLE] [indent] [text] [CR]. . .[ nulls] > 

Data Link Escapes (DLEs) are follOA^ by an indent code, ^ich is a tyte 
that contains a value 32 plus tlie number of spaces for indentation. At 
the Old of the page, the last carriage return is followed by at least 
one null. The nulls pad to the o:d of the page to give the Compiler an 
integral numbers of lines on a page. The DLE and indent code are 
optional and are used for text ccnpression. 

Ihe first page of a text file is the header page. This page is reserved 
for information for the Text Editor. VJhen a user program opens a text 
file and REWRITES or RESETS it with a file name ending in .TEXT the l/O 
subsystem creates, then skips, the header page. The Filer transfers the 
header page cxily on a disk-to disk transfer; the header page is omitted 
on a transfer to a sericil device (PRINTER or CONSOLE). 



2.1.2 Code Files 



A code file is the file generated by oorpiling a program. A program is 
generally contained in a text file (the source statements written in 
the prograirming language) vhich is con^jiled; on successful carpi etion 
of the ocripilation, a code file is generated. This file contains 
machine-executable instructions (P-codes) that ^Aere generated from the 
source program. The suffix .COCE is automatically appended to the 
original file name to designate the code file that matches the text 
file. 

The first block of information in a code file describes the code kept in the 
file. Heading the block is an array of 16 word pairs - a pair for each 
segment cai the disk. (With the H2 release, information for the additional 
segments (128 segments available) is stored in segment pages at the end of 
the file.) The first word of the pair gives the block nurtiber within the file 
vhere code begins. The second word gives the nurriber of words of code 
located there. 

Following this array is a series of 16 eight-character arrays that 
describe the segments by name. These eight characters identi:fy the 
segment at compile time. 
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Then fellows a 16-word array of state descriptors.- The values in this ar- 
ray tell \ft^at kind of segment is at the described location. Ihe values are; 

T T\rtn^r\ 

HOSTSEG 

SEGPROC 

UNITSESG 

SEPRTSEG 

The remaining 144 words of the block are reserved for system use. 



2.1.3 Data Files 



The content and fermat of data files are determinal by the user. 



2.1.4 Bad Files 



Bad files are those files marked by the Filer after a bad-block scan 
detects bad blocks, and the bad blocks have been examined. (See 
section 4.2.11.) Ihe designation of bad files prevents use of 
physically bad blocks on disk. 



2.1.5 Work File 



A file basic to the III.0 Operating System is the work file. Ihe work 
file ccxicept is that space is tenporarily available for a copy 
of a file being created or one being changed. This space and a name 
are reserved for any work that is being dene on the system. If a 
specific name is not assigned to a text file at the ootpletion of the 
work session and the Update option of the Editor is selected to aid 
the session, the III.0 Operating System autcmatically assigns the name 
*SYSTEM.V/RK.TEXT to the file and then writes the file on the system 
diskette . 

If the work file is a Pascal program, the R(un cannand can be used to 
corpile and then execute the code. Ihe R(un ccramand causes the Enseal 
cempiler (1) to take the current work file; (2) corpile it into executable 
P-code; and (3) vhen no errors are found and copilation is ccmpleted to call 
the III.0 Operating System to execute the code. Ihe Pascal cempiler saves 
the code form of the work file on the system diskette as *SYSTEM.WRK.CDEE. 

Ihus, the work file can be edited, cxaipiled, linked, or run numerous 
times without telling the III.0 Operating System that the file to 
use is the work file. Each of the above operations is designed to 
use the work file cn the operating system diskette unless a specific 
file name is entered. 
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Thus, a program can be written and debugged with a minimum amount of 
keystrokes and without redundant write operations. Once the program 
is oonpleted and runs correctly, the text and code WDrk files can be 
given permanent names so that the program is stored cn disk. Ihe wDrk 
files are not permanently saved on disk until the Filer S(ave cdtinand 
is executed, and the work files named. Once the new name is entered 
in response to the S(ave prorrpt "Save as what file?", both work files 
are renamed and written onto the disk. 



2.1.6 File Names 



Because Pascal programs and the III.0 Operating System reference a 
file by its name, a correct file name is important. The following 
rules and statements define a legal file name. 

• The file name may not exceed 15 characters. (The volume 
name may be specified in addition to the 15 characters. 

However, the volume prefix may not exceed seven characters 
plus the colon. ) 

• The file name may not include the ficl lowing characters; 

II II 11^ II H^ll II II 

~ i Y f * i I • 

• The legal characters for a file name are the alphanumerics 

plus the following special characrters; "/", "\", " ", 

and 

• Lower-case letters used in a file name are translated to 
upper case. 

• Blanks and nor^rinting characrters used in a file name are 
removed. 

Special characters are normally used to indicate hierarchical relation- 
ships between files and to dlstingui^ related files of different types. 

The wdld card characters "=" and "?" are used to specify subsets of the 
directory. (See Section 4.1.1). Many Filer cxraraands use a file 
specification to perform a certain acrtion on the group of files designated. 
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2.2 VOLLMES 



A volume is any l/o device (that is, a device connected to the ccmputer to 
send or receive data.) A block-structured device is one that can have a 
directory (fbr exartple, disk). A non-block-structured device does not have 
an internal structure; it sirrply produces or consumes a stream of 
characters (for exanple, printer and console). A non-block-structured 
device can be referenced by the device file name (such as PRINTER: or 
COSISOLE; ) or by the unit number. Block-structured devices can be referenced 
by the unit number or by the volume name of the diskette stored in the 
appropriate drive or the volume name as configured on a Winchester disk. 

Table 2-1 gives the volume names reserved fcr non-block-structured devices, 
the unit niinber associated with each device, and the unit numbers associ- 
ated with the system and alternate disks. 



Table 2-1. l/o Devices. 



Unit 

Number 


Volume 


ID 


Description 


1 


COSISOLE: 


Screen and keyboard with echo 


2 


SYSTEM 


• 

• 


Screen and keyboard without echo 


3 






UNUSED 


4 


<volume name>: 


^stem disk (typically) 


5 


<volime name>: 


Alternate disk (Winchester or floppy) 


6 


PRINTER: 


Line printer (parallel device) 


7 


RCOJSl 




Remote console 


8 


REMOTE 




Additional peripherals (serial devices) 


9-14 


<volum( 


2 name>: 


Additional disk drives (Winchester or floppy 


15 


RCOSIS2 




Ranote console 


16 


RIERyi2 




Ifeniote terminal 


17 


RC0^3 




Remote console 


18 


RTEPM3 




Remote terminal 


19 


RCQNS4 




Remote console 


20 


RTEPM4 




Remote tenriinal 


21 


RCCNS5 




Remote console 


22 


RTEFM5 




Remote terminal 


23 


RC0NS6 




Remote console 


24 


RTERyi6 




Ifemote terminal 


25 


RCOSrS7 




Itemote console 


26 


RTERyi7 




Remote terminal 


27 


PRINTRJ 


L: 


Additional line printer 


28. . 255 






Winchester disk units or future devices 


(Additional unit 


: numbers are 


reserved for system use.) 
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On H3 and later releases, the unit numibers 4, 5, 9-14, and 28-255 can be 
used as either Winchester or floppy units. In general, any unit can be the 
"system” unit, depending on. how the system is configured. Ihe default 
configuration for a floppy-only system is i^own in Table 2-1. 

Ihe volunes CO!5SOLE; AND SYSTERM: refer to the user CRT and keyboard. In a 
Pascal program, CONSOLE: is referenced by the standard file names INPUT and 
OUTPUT; SYSTERM: is referenced by the standard file name KEYBOARD:. Ihe 
difference betveen SYSTERM: AND OCNSOLE: is that reading from CQjJSOLE: 
causes input characters to be echoed to the screen and reading from SYSTERM: 
does not. Ihis difference in character echo also aj^lies to RCCNS: and 
RTERyl; . 

Volume names for block-structured devices can be assigned by the user. The 
following rules and statements define a legal volume name. 

• Ihe volume name my not exceed seven characters in length. 

• Ihe volume name my not ccxitain the follcwing characters: 



• Ihe character is the reserved volume ID of the system disk, 
the disk on vAiich the system v^s booted. 

Ihe character vhen used alone is the volume ID of the default disk. 
Ihe system and default disks are equivalent unless the default prefix 
is changed using the Filer P( refix ocrnmand. 

Use of the "#<unit number>” is equivalent to the name of the volume 
in the disk drive at the current time or designates another l/O device 
(for exanple, #6: designates the PRINTER:). 
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An editor is a specialized program that facilitates creating, reading and 
changing text files. The III.0 Operating System contains four editors: the 
Screen-Oriented Editor (S"5iSTEM. EDITOR), the Advanced Editor (ADV. EDITOR ) , the 
L2 Editor (L2 ) , and a Line-Oriented Editor (YALOE ) . Each of these editors is 
suited to a specific use. That is, the Screen-Oriented Editor is designed for 
use with a video display ccnsole; it handles a text file as one unit in the main 
memory of the ocrrputer. The Advanced Editor is an enhanced version of the Screen- 
Oriented Editor designed to offer additional efficiencies in text manipulation. 
The Advanced Editor is included in the III.0 Operating System as an alternate 
choice to the Screen-Oriented Editor as the system editor. The editor named 
SYSTEM. EDITOR is invoked vhen an E is typed at the outer canmand level. The L2 
Editor is a version of the Screen-Oriented Editor \fthich facilitates editing of 
large files vhich cannot fit into the main memory buffer at cxie time. The Line- 
Oriented-Editor (YALOE) is designed for use with a teleprinter or 
telewriter as the system console. 

These four editors plus their carmands are described in this chapter. 
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3.1 SCRCEN-ORIENTED EDITOR 



The Screen-Oriented Editor is designed for use with video display 
terminals. Ihis editor handles a text file as one unit yiich is read into 
the main memory buffer of the corputer. The Screen-Oriented Editor 
facilitates text manipulation ty providing such capabilities as insertion 
and deletion of text, change of text character- for-character, setting and 
modifying paragraph margins, finding a ipecific character string, moving 
text from one place to another, and replacing a given character string with 
another. 



3.1.1 General Information 



The Screen-Oriented Editor provides a window into the file through the 
screen of a Q?T. The window shows that portion of the file in vhich editing 
is taking place. The window can be moved to various parts of the file 
displaying the portion of the text available at that position. 

\‘Jhen entering any file, the Screen-Oriented Editor displays the start of the 
file in the ipper left comer of the screen. Ihat position is the original 
position of the cursor. The cursor is a marker indicating the position at 
vhich an action would take place if initiated. The cursor can be moved 
about freely in the file ty the directional arrows until an editing cannand 
or mode is specified. Once the cormand is executed, the cursor is frozen 
within the movonent specifications of the oannand and cannot be freely moved 
until that action is caipleted. 

The cursor is never actually "at" a character position but is between the 
character at vhich it appears (for ease of display) and the character 
immediately preceding. This location is most clearly apparent in the 
I(nsert mode, \>hich inserts in front of the character at v\hich the cursor is 
located . 

Repeat factors are allowed by neny of the ccrnmands to repeat the action of 
the cannand as many times as indicated by the imnediately preceding number. 
For example, entering 2 <down-arrow> causes the <down arrow> cannand to be 
repeated twice, moving the cursor down two lines. The assumed repeat factor 
is 1 if no number is typed before the ocmnand. A slash (/) typed before the 
cannand indicates an infinite number of repeats for some connands. 
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Scxne cxartrnands are directional. If their direction is forward, they operate 
forward through the file; if backwards, they operate in reverse. Ihe 
directional arrow that appears before the "Edit:" ocmiiand line indicates, 
for example, the default direction for ccratands that are directional. Ihe 
right arrow (>, "greater than" sign) appears at the beginning of the "Edit:" 
ccrmand line, lliless the dirction is changed, this arrow indicates that all 
directional actions will progress forv^erd through the file. When direction 
affects the ocmnands, it is specifically noted in this imnual. 

All oanrtvand characters may be entered in ipper or lower case, although they 
are referenced in this document in upper case form only for brevity. 



3.1.2 Accessing the Screen-Oriented Editor 



The Screen-Oriented Editor is accessed by typing E (for edit) from the outer 
level command prompt line. If a work file exists, this editor automatically 
reads it into the main memory buffer for editing. If a work file does not 
exist, the following pronpt appears on the screen: 



I >Edit: I 

I No workfile is present. File? (<ret>for no file <esc-ret> to exit) I 



If a return (<ret>) is entered, the Edit command line appears across the top 
of the screen. The main Edit coiTniand line is illustrated below. 



I >Edit:A(djst C(py D(lete F(ind l(nsrt J(itp R(place Q(uit X(chng Z(ap? 



The second Edit command line can be accessed by typing a ?. Ihe second Edit 
cannand line is illustrated below. 



I >move[<arrcws>, <sp>, <ret>, =, P(age], direction [<, >],M(rgn,S(et,V(rfy 
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If a file name for editing is entered in respDnse to the first prcnpt^ the 
following lines appear oi the -screen as the file is read into the huffer; 
then, the Edit canmand line appears across the top of the screen. 



! >Edit: 

I Reading . . . . 



If a file name is entered that is not present (for example, a typographical 
error is made in the file name), the follcwing message and prorpt are 
displayed. 



I Not present. File? 



Once the file is read into the buffer or a new file is designated, the 
cursor is slwwn in the ipper left comer of the screen. Unless the first line 
is indented, this position is row 1 column 0 of the screen and is the beginning 
of the file. 



3.1.3 Screen-Oriented Editor Cannands 



Although the rScreen-Oriented Editor cannands are described in this rranual in 
the order in vhich they appear in the Edit ccmnand prompt line, the cannands 
can be grouped into three major categories, as follows; 

• Moving cannands. 

• Text-changing conmands . 

• Formatting ccmnands. 

• Quit ccmnand . 

A brief discussion of each of these categories follows. 



• MOVING CCMNIANDS 

Ihe moving cannands move the cursor from one location to 
another to position it for the next editing function. Many 
of these cannands are initiated by keys cn the CRT keyboard. 
The cannands initiated from the CRT keyboard are listed in 
Table 3-1. 
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Table 3-1. Moving Gctnnands - CRT Initiated. 



Cannand/Key 



Function 



<dcwn-arrow> 

<up-arrcw> 

< right-arrow> 
<left-arrcw> 

"<" or or 

">" or or "+" 

< space > 
<backspace> 

< return > 

P(age 

J (unp 

B(egin 

E(nd 

M(arker 



Moves cursor down 

Moves cursor ip 

Moves cursor right 

Moves cursor left 

Changes the direction to backward 

Changes the direction to forward 

Moves 1 character (directional) 

Moves cursor left 

Moves to the beginning of the next line 
( directional ) 

Moves the screen display cn screen page 
forward or backward (directional) 

Moves the cursor to a predetermined point 
in the file as follows: 

Moves cursor to the beginning of the file 
Moves cursor to the end of the file 
Moves cursor to the marker specified 



Direction is always indicated ty an arrow (> or <) in front of 
the profrpt line. The direction is forward v\hen the Editor is 
entered, but can be changed by typing the appropriate arrow 
whenever the "Edit:" prcxtpt line is present. On many standard 
keyboards, the period (.) can be used for forv\ard because it 
is the lower case for and the carma (,) can be used for 

backward, being the lower case for "<". Also, the + and - signs 
change the direction — + is forward and - is backward. 

Repeat- factors are valid for some conmand options and some of 
the cursor moves. A repeat- factor is a number that specifies 
how many times the command function or move action is to be 
repeated. The number is entered immediately prior to the 
cursor move or command option. For example, the F(ind and 
R(eplace conmands allow repeat- factors . Also, use of the 
down or ip arrows allows a repeat- factor to be specified. 
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The cursor moves and other oarmands that allcRftT repeat- factors 
use a factor of 1 if no nirttoer is specified* Repeat— factors iray 
range from 0 to 9999 v^hen entered as a number. Using the 
slash (/) before a cursor rrove causes the action to repeat 
infinitely until the end of the file (or beginning of tiie 
file, depending on the direction) is reached. Using the 
slash (/) with other catinands that allcw repeat factors causes 
the last occurrence of a string in the file to be found or 
an infinite repeat of the aannand. For example, if ”/RLV. pascal 
..Pascal." is entered from the EkJit oanmand line, all occurrences 
of "pascal" in the file are found on. a one-by-one basis, the cur- 
sor appears at the end of each target, and a prorpt appears for a 
decision as to vhether or not to replace that occurrence with the 
substitute string. (See the Replace ccmmand subsection for additional 
explanation of these actions.) 

Repeat factors can be used with any of the keyboard oannands 
listed in Table 3-1. Repeat fectors are ignored if not appropriate to 
the ccmmand (such as "<" or ">" direction changes). 

The Editor mintains the column position of the cursor when 
executing the <up arrow> and <dcwn arrow> conmands. 

The moving ccninands that do not have special function keys on 
the CRT keyboard are JUMP, PACS, and = (equals); these 
carmands are described in separate subsections. 



• TEXT-CHANGING COMMANDS 

The majority of Editor acmmands fall into the text-changing 
category. The main function of an editor is to fecilitate 
the nanipulation of text within a file. The text-changing 
comnands are listed below but are described in separate 
subsections . 





(Copy Ccmiand) 


D(elete 


(Delete Conmand) 


I (nsrt 


(Insert Cbrnmand) 


R (place) 


(Replace Ccnmand) 


X(chng 


(Exchange Ccnmand) 


Z(ap 


(Zap Oonmand) 



• PCM1ATTING COMMANDS 



Several Edit ccniTiands effect text formatting. This group of 
ccmmands control indentation, margins, and general text layout 
on the page. These cammands are listed on the following page 



but are described in separate oubsections . 
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A(djst (Adjust Gcrrmands) 

M(rgn (Margin Gcxrmands) 

S(et (Set Ccrrinands) 



A(djst (Adjust Coramand) 



The Adjust coimand allows selected lines of text to be lifted right or left 
without changing their contents. This canmand is initiated by typing an A 
fron the Edit oonnand proipt line. After entering the A, the ficl lowing 
prarpt line appears: 



|>Adjust: L(just R(just C(enter <left, right, up, down-arrows >{ <etx> to leave} I 



These options refer to the line on v\iiich the cursor is located. This ocmmand 
adjusts indentation oi a line-by-line basis. On any line, the right-arrcw 
and left-arrow camnands move the vhole line one space to the right or left, 
respectively, each time the arrcw is typed. An <etx> or (editor accept key) 
is typed when indentation is adjusted as desired. 

To adjust a sequence of lines, cne line is adjusted; then the ip-arrow and 
down-arrrow cormands are used to adjust the line above or below, 
respectively, by the same amount. Repeat factors can be used before any of 
the arrows; use of the / is also valid. 

"L" and "R" are used to left- and right- justify lines to margins set in 
the Environment. "C" centers the line between the set margins. Typing an 
up- or dcwn-arrcw justifies or centers the line above or below to the same 
specification as the original line. 

The Adjust aomnand can only be terminated by typing an <etx> (or equivalent); 
an adjust action can be aborted by typing <esc> before any line adjustment 
is specified. 



C(py (Copy Ocmand) 



The Copy ooninand allows insertion of passages of text into the work file; the 
insertion may be text previously saved in the buffer of the work file or 
text copied fron a file other than the work file. This camiand is initiated 
by typing a C from the Edit cortinand line. After altering C, the following 
prarpt line appears: 



|>Copy: B(uffer F(frcm file <esc> 
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c(py bCuffer 

The C(py B(uffer option copies the text saved in the buffer into the wDrk 
file at the cursor position vhere the C vias entered. Each use of an I(nsrt, 
D(lete, or Z(ap cannand stores the text passage that v^as inserted j deleted, 
or zapped, in the buffer. Thus, through use of D(lete, then terminating the 
deletion with an <esc> instead of an <etx>, the C(py B(uffer option allows 
the text to be copied at a second location in the file txit leaves the 
original text intact. That is, the sequence — D(elete <esc> C(cpy B(uffer — 
allows copying text; the sequence — D(elete <etx> C(opy B(uffer — allows 
moving text. Any insertion or deletion of text before copying the buffer 
autonatically fills the buffer with that text and, in so doing, removes the 
text previously stored in the buffer. 

Figure 3-1 is an exarrple of the C(py B(uffer selection using a "D(lete 
<esc>" sequence first in order to copy a passage of text to a second 
location in the file. In Figure 3-1, the keys typed are idiaded; corments 
are enclosed in braces ( { } ) . The Edit cawnand line and the text passage to 
be copied are ^own at the top of the figure. The cursor is located at the 
beginning of the text to be deleted/copied. 

After the copy is conpleted, the cursor returns to the position irrmediately 
preceding the text that was copied. The use of the C(py B(uffer sequence 
does not change the contents of the buffer. The original indentation of ccm- 
plete lines in the buffer is retained v\hen the buffer is copied into the file. 



C(PY F(ILE 

The C(py F(ile option is used to copy another file or a passage of text frcm 
another file into the vork file. To copy a passage of text from another 
file that is saved cn disk, markers must have been previously set vhile 
editing that file. The text to be copied must be delimited by a beginning 
and ending mrker. 

When the C(py F(ile option is selected by first altering C for copy frcm the 
Edit oommand line and then entering an F for "F(rcm file" frcm the Copy 
prompt line, the following pronpt appears. The file name and the appropriate 
marker names are requested. 



I >Copy: Frcm vdiat fileCraarker, marker]? 



Any file may be specified; however, a text file is assumed. The copy 
operation does not change the contents of file being copied. Also, the 
original indentation of ocnplete lines in the external file is retained when 
the file (or poirtion of it) is copied into the file being edited. 
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The sequence of entries and responses in Figure 3-2 illustrates the use of 
the C(py F(ile option to copy a portion of text (delimited by markers a and 
b) from a second file named "cpyex.text" into the current work file. In 
Figure 3-2, the keys typed to effect the copy are leaded; cormients are 
enclosed in braces ( { } ) . System responses are prefaced by a right arrow ( > ) . 



>Edit; A(djst C(py D(lete F(ind I(nsrt J(rrp R(piace Q(uit X(chnge Z(ap ? 



B <ret> 


Fill in the following information 


<ret> 


to allow an tpdate of your 


jiiiiiljiil 


credit record. 


iiiiiiiiiii:: 


Name: 


<ret> 


Address : 




Acct. Nunber 



. {Continuation of file text} 

• 

Your credit record can be an inpDrtant 
asset vhen applying fbr a loan. Your 
rights to have knowledge of your credit 
rating have been established by law. 

To find out your credit rating, return 
the portion of this flyer marked below. 



C < (Cursor is positioned on the blank line below the line 

of hypens in the text.} 

B ® 

Fill in the foil owing information 
to allow an i;pdate of your 
credit record. 

Name; 

Address : 

Acct. Nuitber 



If you have questions regarding the 
procedure explained in this flyer, call 
800-222-1000. {End of file} 



( 1 ) The "D(lete <esc>" sequence causes the text to dis- 
af^ar from the screen - then to reappear after the 
buffer is filled. 

@ Ihe "COPY B(uffer" sequence is a two-step action 
that causes a COPY menu to appear then disappear as 
the selection is made. Ihe copy is then completed. 



Figure 3-1. C(py B(uffer Exanple. 
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>Edit: A(djst C(p 7 D(lete F(ind Ifnsrt. J(nip R(place Q(uit X(chng Z(ap ? 



C 

>Gopys B(uffer F(rcm file <esc> 

F 

>ODpy: From v^^at file[marker, marker]? 

>Copy 

{After the above return is typed, the oopy is completed, beginning 
at the location of the cursor vyhen the C for copy v\a.s entered . } 



Figure 3-2. C(py F(ile Exaiiple - Passage of Text. 



If no marker names are altered with the file name, the entire file 
designated is copied into the vork file. The copy begins at the cursor 
location vyhere the copy operation vas begun. On ccrrpletion of the copy from 
a file, the cursor returns to the beginning of the text just copied from the 
file. 



D(lete (Delete Connand) 



The Delete command is initiated by typing D for delete from the Edit command 
line. This command allows characters to be ranoved from the text being 
edited. After typing a D for delete, the following prompt line appears 
across the top of the screen. 



|>Delete: <> <Moving actriiiands> { <etx> to delete, <esc> to abort} 



To delete characters, any of the cursor moving ccmraands (<arrows>, <ret>, 
and so forth) are valid. Ihe arrow before the word "Delete" in the prorpt 
line indicates the direction in vhich the characters are to be deleted. The 
direction can be changed by typing the directional arrow just prior to 
typing the D for delete or during the delete action. 
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Typing <ret> v\Siile in Delete mode removes the oitire line of text. Also, the 
repeat factor may be used to delete several lines at once by prefacing a 
<ret> (or any other moving oamiand) with the desired repeat number. 

The cursor must be placed at the first character to be deleted. This 
position is the anchor position or starting point. As the cursor is moved 
away from the anchor position, text in its path is removed. As the cursor is 
moved back toward the anchor position, previously deleted text is restored. 
All text between the anchor position and the final position is deleted, and 
the space is closed ip vhen the <etx> (or editor accept key) is typed. 

The Delete cornnand is terminated in one of two v\ays - (1) either typing an 
<etx> to accept the deletion or (2) typing an <esc> to abort the deletion. 
Typing an <esc> leaves the original text in place in the file. For either 
termination, the text that is or would have been deleted is copied into the 
buffer. (Refer to the C(py Gorrmand section in this chapter.) 

Figure 3-3 illustrates use of the Delete ccmmand. The keys typed to effect 
the deletion are shaded; ccrnments are eiclosed in braces ( { } ) . System 
prompts are prefaced by a directional arrow. 



>Edit:A(djst C(py D(lete F(ind I(nsrt J(rrp R(place Q(uit X(chng Z(ap ? 



{The text below is the original text before deleting.} 

This sentence of the text is to remain the same. Ihis sentence 
is to be modified by the delete operation. 

[Positicai the curaor over the **t“ in the second cccurrence of "to."} 
D, <space>i, <spaoe> , <space>, <fi5sace> , <spaGe> , <etx> 

{The fiollcwing text results from the deletion.) 

This sentence of the text is to remain the same. This sentence 
is modified by the delete operation. 

Figure 3-3. Exanple of the Delete Command. 
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A padded ' ' (space) may be implicitly added fcy the cperating system, to the 
end of the line &>1 lowing the deletion* 

After a deletion that includes a <ret>, the line on. which the cursor is 
located may extend beyond the edge of the screen display (80 characters) * An 
i appears in the last visible character position of the line to indicate 
that text occurs beyond the screen limit and cannot be displayed. Tb see 
the text that extends beyond the screen limit, a <ret> can be inserted 
anyvmere in the visible portion of the line. Ihe text that was not seen is 
then displayed on a new line below the visible text. The new line of text 
begins with the character on vyhich the cursor was located when the <ret> was 
inserted. 



F(ind (Find Cannand) 



The Find cctmiand searches through the file fior the specified group of 
characters (the target) and noves the cursor to the end of that group. If a 
repeat- factor is specified, the Find ccmmand moves the cursor to the oid of 
the specified occurrence of the target. 

The Find ccmnand is initiated by typing an F fircm the Edit cannand line. 
After an F is entered, one of the fol lowing two prannpt lines is displayed 
depending oi the setting of the T(oken default option in the Environment 
mode. (See the S(et E(nvironment description in a separate section of this 
chapter . ) 



I >Find [1 ] : L( it<target>=> 



The above prcxrpt line appears if the T(oken default is set to true. 



I >Find [1 ] : T (ok<target>=> 



The above prorpt line appears if the T(oken default is set to felse. 



Page 3-13 







TARGETS AiSID DELIMITERS 



The target is a group of characters and/or spaces that is specified as the 
string (or group) to be found. Ihe target is described or "set off" to the 
system ty delimiters. Delimiters are a set of characters that enclose the 
specified target v\hen altering the ccmmand. Any character that is not a 
letter or nun±>er my be chosen as the delimiter as long as the character is 
not in the target string. 

If a character that occurs in the target is used as a delimiter, the Find 
action begins immediately after the character is entered. The Editor 
interprets that character as the closing delimiter and thus, begins 
searching for the target string. In that case, the target found is oily 
part of the intended target. 

A camonly used delimiter is the slash (/) because that character does not 
often occur in text, and it is convenient to type. 

If the target is not preceded ty a delimiter, the following error message 
appears; 



I ERROR; Invalid delimiter. <space> to continue. 



For a literal search, the Find ccmmand searches for the target string exactly 
as it is altered. Ihat is, if the target is altered in all capital letters, 
the search is for a mtching pattern in the file - all capital letters. If, 
for exanple, the target is entered in all caps and the pattern in the file 
only begins with a capital letter, a mtch is not mde and the following 
message appears. 



Iee^OR; Pattern not in the file. <space>to continue. 
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LITERAL ATSID TOKEN SEARCHES 

The search for the target may be either a literal or token search; the 
target is treated differently for each of these cptions. The literal search 
causes the target to be matched exactly or literally, even if the target 
appears within a ward. The spaces are also considered in a literal search. 
For exanple, the literal target / Pascal / produces only the natch of " Pas- 
cal " (as a separate wDrd in the file) . However, the word Pascal followed 
Icry a period (Pascal.) would not natch the target because the target is 
enclosed by spaces. Also, a literal target like /oper/, might natch the 
following patterns in text: 

operating 

operation 

operate 

cooperate 

The token search matches the target to a token, v^hich nay be a ccnplete 
word, a punctuation character, or an identifier. Several different tokens 
may be strung together to form a single target. Blanks or i^ces are not 
considered in the token search. For exanple, a target of /l: INTEGER;/ v^hen 
used in a token search could natch the following patterns in the work file: 

I: INTEGER; 

I: INTEGER; 

I : INTEGER; 

I: INTEGER; 

I; 

INTEGER; " 

The default (or automatic) setting for either literal or token searching is 
determined by the setting of the T(oken default option, accessed by the S(et 
E(nvironment cctrmand. Ihe Find prcrrpt line displays the alternate search 
type - either L(it or T(ok - not the default type. Ihat is, the default 
type is the one NOT shown in the prorpt line. 

To use the alternate type rather than the default type, the first letter (as 
shewn in the prorpt line) of the alternate search is typed before the target 
is altered but after the F for Find is altered. The letter appears after 
the => of the prompt line; no action begins until the closing delimiter of 
the target is entered. 
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SAME^ARGBT OPTION 



In order to find repeated occurrences of a target in a file, typing FS causes 
the Editor to search for the target string last specified. Ihus, the 
target need not be reentered. By/^ever, L(it or T(oken is a property of each 
find action; this property is not associated with the pattern v\hen it is 
defined. For example, the sequence — FL/oper/ — finds the next occurrence 
of "oper", but an "FS" following that s^^uence does not find the next occurrence 
of the target because the L (for literal) must be typed again. 

If the last specified target is not known, the S(et E(nvironment canmand can 
be executed to i^ow the current target. For example, the Environment display 
might list the fiol loving: 

Patterns : 

<target>= 'Pascal' 



I(nsrt (Insert Corrmand 



The Insert ccranand allows new information to be added to the work file. 

All characters typed as an insertion become part of the text stored in main 
memory. To insert text, the cursor is positioned at the place the insert is 
to begin. An I for insert is typed from the Edit canmand line; the 
following pronpt line appears; 



>Insert; Text {<bs> a c±iar, <del> a line} [<etx> accepts, <esc> escapes] I 



In the insertion, the new characters are added between the character on 
vhich the cursor was located vhen the insert began and the character to the 
immediate left of the cursor. That is, a space is opened between the cursor 
position and the character to the left of the cursor. This space continues 
to widen as characters are entered; the original text that v\^s to the right 
of the cursor is moved right as the insert increases. The shifting of text 
continues until the insert is finished and accepted (<etx> or editor accept 
key) or until the insert is aborted (<esc>). 

Once the original text is pushed to the screen display limit, that line 
drops down to the next line to allcw more text to be inserted. Once the 
insertion reaches the screen display limit, the original text that made ip 
the remainder of the line drops down another line. Therefore, v\hen a <ret> 
is typed, the insertion can continue cn a new line. The rest of the 
work file page of text is not displayed cn the screen but remains in main 
mamory. When an <etx> is typed to accept the insertion, the original text 
is brought to the end of the insertion and the remainder of the page appears 
on the screen. 
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If a <ret> is inserted at the screen display limit # the original text to the 
right of the insert disappears from the screen, allowing as many new lines 
as required to be inserted. After a <ret> is inserted, the cursor is 
positioned immediately below the first character of the line above, if 
A(uto indent is true. If A(uto indent is feilse, the cursor is positioned 
bo column 0 or the left margin. To change the indentation of the new line, 
the space bar or backspace key can be used to alter the cursor position. This 
alteration must be done immediately after the <ret> is typed and before any 
text is entered. Once any character other than space or backspace is typed 
at the beginning of the line, the indentation cannot be altered by the space 
or backspace keys. 



g^^RECTING ERRORS 

Ihe Insert proipt line ^ows the error-correcting capabilities available 
during the insert. The <bs> corresponds to the left-arrow key (backspace) 
and is used to delete a character at a time in the reverse direction. The 
<del> coinresponds to the delete key, v\hich deletes all text back to and 
including the last <ret> character entered. 



I NOTE i 



The direction set at the beginning of the Insert 
prompt line is not valid. If a nonusable control 
character like an up arrow, is typed inadvertently, 
a question mark (?) appears on the screen. These 
errors can be erased by the <bs> or <del> keys. 



ACCEPTING OR ABORTING THE INSERTION 

To end the insertion (accept the new text into the file), an <etx> (or editor 
accept key) is typed. Tb abort the insertion at any point, an <esc> is entered. 
All inserted text is discarded vhen the <esc> key is typed. That is, the copy 
buffer is not changed by an I(nsert <esc>. 

However, after an insertion is accepted (<etx>), the information is 
available from the copy buffer until the next insertion or deletion. 

Therefore, if an insert is to appear in several locations in the file, the 
C(opy B(uffer oatimand can be used to place the text in the various location. 
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J(irp (Junp Oomnand) 



Ihe Jurrp cxmiiand allows the cursor to be noved quickly from one place to 
another in the file without using the ip or down arrows repeatedly. The 
Jurrp oc3timand moves the cursor to the beginning or end of the file or to 
preset markers in the file. 

The Jurrp cctnmand is initiated by typing a J from the Edit oarmand line. The 
following prorpt line appears: 



I > Jurrp: B(eginning E(nd Marker <esc> 



Typing a B for beginning moves the cursor to the beginning of the file, 
displays the Edit cartnand line at the bop of the screen, and displays the 
first page of the file. Likewise, typing an E for oid moves the cursor to 
the end of the file, displays the Edit connand line at the top of the 
screen, and displays the last page of the file. 

Typing an M for Marker causes the following prompt line to appear. 



I Jurrp to what marker? 



If a rrarker name is entered that is present in the file, the cursor moves to 
that position after a <ret> is typed. If a nonexistent marker name is 
entered, the following error message appears: 



IerrcxI: Not there. < space > to continue. 



The cursor does not move firora its current position vhen an error occurs. 
Establishing markers in the file is explained in the S(et M(arker ccrmand 
section. 

If <esc> is typed in response to the jump prompt line, the jump action is 
aborted. 
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The Replace acrnnand finds a target and replaces it with a specified 
substitute, This ocmiiand is very similar to the Find coimand but extends 
the capabilities of Find. (See the section discussing the Find ocniiiand.) 

The Replace ccmmand is initiated ty typing an R fran the Edit ccmmand line. 
After an R is entered, oie of the fbllcwing twc prompt lines is displayed 
depending on. the setting of the T(oken default option in the Environment 
mode. (See the S(et E(nvironment description in a separate section in this 
chapter . ) 



l>Replace [l]:L(it V(fy <targxsub> => 



The above proipt line appears if the T(oken default is set to true. 



|>Replace [l]:T(ok V(fy <targ><sub> => 



The above pronpt line appears if the T(oken default is false. 

The Replace cormand searches through the file according to the direction 
set, finds the specified number of occurrences of the target, and replaces each 
occurrence with the specified substitute (unless verification is selected.) 
After the replaconent is carpleted, the cursor is positioned at the end of 
the last target found or substituted. 

See the Find ccninand section for a discussion of the repeat- factor, targets 
and delimiters, and the literal and token search modes. 
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CCMMAND STRUCTURE 



The Replace ccnmand requires two user-specified groups of characters - the 
target (same as the Find catmand) and the substitute. The target is the 
groi;^) of characters to be found, and the substitute is the new replacement 
for the target. 

These strings must each be enclosed within a set of delimiters. Delimiters 
must form a set; that is, the opening and closing delimiter must be the same 
character. 

A typical exartple of the Replace ccmmand structure is given below: 



i >Replace[l]:L(it V(fy <targ><sub>=>/ pascal// Pascal/ 



The slashes are the delimiters. The replace operation would replace the 
first occurrence of the token " pascal" with " Pascal", starting at the 
cursor position and replacing j6orward in the file. 



VERIFY OPTION 

When V is entered (for verification) in the Replace ccrnmand, no substitute 
of characters is corpleted until the user looks at each target found and 
decides to replace that occurrence. After the V is typed in the ccriinand, no 
action occurs until the first occurrence of the target is found. At that 
point, the follcwing prcrrpt asks the user for a decision regarding the 
replacement . 



I >Replace[ 1 ] ; <esc> aborts , ‘ R ' replaces , ' ' doesn * t 



If the user wants to replace the target with the substitute, an R is typed. 
If the user does not want to replace that occurrence of the target with the 
substitute, a < space > is typed. To abort the replace operation, an <esc> 
can be entered. 

A slash (/) used with the Verify option causes every occurrence (in the set 
direction) of the target to be examined before replacement. 
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SAME-STRING OPTION 



As with the Find oaTiTiand, the same-string option is available with the 
Replace aamand. Typing an S in place of the target directs the Replace 
caimand to use tiie target specified previously, either ty a previous use of 
the Replace or Find ccmnands. Likewise, an S may be used for the substitute 
string. The Replace connand then uses the last substitute string specified 
in a previous Replace cannand. 

For example, the fbl lowing Replace connand entry causes the command to use a 
previous target with a new substitute string. 



|>Replace: L(it V(fy <targ><sub>=>S/Pascal('IM)/ 



Likewise, the following Replace connand entry causes the command to use a 
previous substitute with a new target. 



|>Replace; L(it V(fy <targ><sub>=>/pascal/s 



Typing the following characters causes the Replace command to use the 
previous target and substitute: 

RVSS 

The next occurrence of the previously specified target is replaced (after 
verification) with the previously specified substitute. 

If a previous target or substitute has not been specified the following 
message appears ; 



I ERROR: No old pattern. <space> to continue. 



Figure 3-4 is an exanple of use of the Replace command. In Figure 3-4 user 
input is leaded; comments are enclosed in braces ( { } ) . System responses are 
prefaced ty an >. 
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>Edit:A(djst C(py D(lete F(ind I(nsrt J(np R(place Q(uit X(dhng Z(ap ? 

PRCX5RAM REPLACE; {Text before replacement.} 

BEGIN 

VJRITEIN ( ' SOME WORDS ' ) ; 

WRITELN ( 'MORE VO^ ' ) ; 

WRITEIN ( 'EVEN MORE ICKDS ' ) ; 

END. 



>Replace [3]:L(it V(fy <targ><si±)>=>A*^Q*y^//B™ 

PROGRAM REPLACE; {Text after replacement] 

BEGIN 

WRITELN ( ' SOME BYTES ' ) ; 

WRITELN ( 'MORE BYTES ' ) ; 

WRITELN ( 'EVEN MORE BYTES ' ) ; 

END. 



Figure 3^. Exairple of the Replace Catmand. 



Q(uit (Quit Carmand) 



Ihe Quit ccmmand terminates the Editor session. Ihe Quit ccmmand is initi- 
ated by typing Q from the Edit oarmand line. Ihe following message appears: 



>Quit: 

U(pdate the workfile and leave 
E(xit without updating 
R(eturn to the editor without ipdating 
W(rite to a file name and return 
S(ave as <vol;file name> and return 



One of the five options must be selected by typing the appropriate letter . 
These five options are described in the fbllcwing subsections. 



UPDATE OPTION 

The U(pdate option causes the editor to write the file just modified 
(currently in memory) onto the system volume as SYSTEM. WRK. TEXT. This 
option erases any previous versions of the system work file. 

(SYSTEM. WRK. cols: is removed as well as the previous SYSTEM. WRK. TEXT. ) 

If the systen work file is the text file being edited, the U(pdate option 
should be used periodically to avoid accidental loss of recent changes. 
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EXIT OPTION 



The E(xit cption terminates the editing session without recording the 
changes made to the file currently in memory. Any changes mde to the work 
file since the beginning of the editing session are NOT recorded. This 
option is useful when a file is to be read only. 



RETURN OPTION 

The R(etum option returns to the Editor without recording any changes mde 
during the editing session. The cursor returns to its location in the file 
at the time a Q was typed. This option is useful after a Q is inadvertently 
entered . 



WRITE OPTION 

The W(rite option provides the means to record the changes mde during the 
editing session. The following prorrpt appears requesting the name of the 
file in which the changes ^ould be recorded. 



I >Quit; 

I Name of output file (<cr> to return) — > 



The changed file my be written to any file name. If the file already 
exists, the changed file replaces it. Typing a <ret> aborts the ccniTiand. 

Once the file name is entered, the following message and prompt appear: 



I Writing 

I Your file is nnn bytes long. 

I Do you want to E(xit from or R(etum to the Editor? 



Typing an E exits the Editor and redisplays the outer level command pronpt 
line. Typing an R returns the cursor to its previous location in the 
file. However, the changes mde during the editing session were recorded an 
disk. 



SAVE OPTION 



The S(ave cption is useful in the case where the Editor is used with a file 
other than the syston work file. If the Editor is entered wa.thout a work 
file, the Editor prarpts for the file to be edited. If a file name is 

-h*5rn^ 4-Vi^ /nanrl- *i ^ "P 4-Vi^ -Pn 1 ^ *5 e +“/^ 

V-.X X / MW w \.0 ui / waxw k^\dvw w ^ wx *■ ^ wu. _l.O CJk../ 

be saved as the name of the input file. 
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X ( dhng ( Exchange Cormiand ) 



The Exchange cormand (X(chng) allows existing characters to be exchanged on. 
a one-for-one basis by new characters being entered. The Exchange ccrnraand is 
initiated by typing an X from the Edit command line. The following prompt 
line then appears: 



I >Exchange:Text{<bs>a char}[<esc> escapes; <etx> accepts] 



As characters are entered, the cursor moves to the right over the text 
replacing the characters. If an <etx> has not been entered, backspacing 
restores the original characters on a one-for-one basis. 

Typing an <esc> aborts the Exchange caimand without making the changes. 
Typing an <etx> (or editor accept key) accepts the changes as part of the 
file. 



I NOTE I 



The exchange command does not allow typing past the 
end of the original text or the end of the line. 

Also, a <ret> may not be entered as a character to be 
exchanged. New text must be added through the I(nsrt 
command if the exchange exceeds the length of the 
original text. 

After the Exchange cormand is initiated, the right arrow may be used to 
space over the existing text without changing it. Exchange is not affected 
by the current direction. 
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Z(ap (Zap Gcmnand) 



The Zap crrmand deletes all text between the start of the text last found, 
adjusted, replaced, or inserted and the current cursor position. Zap is 
designed to be used iirmediately after a Find, Replace, Mjust, or Insert. 



i CAUTION I 



If any of the above carinands are follov^^ by a 
text change or any command that moves the cursor, 
the results of the Zap catinand are unpredictable. 

The Zap ccmmand is initiated by typing a Z frcm the Edit conmand line. 

If more than 80 characters are being zapped, the Editor asks for 
ver i f ication : 



I >WARNINGiYou are about to zap more than 80 chars, do you wish to zap?(y/n) I 



If the most recent text changing ccnmand v^as I(nsert, use of the Zap 
connand deletes the insertion. If the most recent ccmmand vas F(ind, use 
of the Zap cannand deletes the occurrence of the target found. If the most 
recent cartnand was R( place, use of the Zap ccmmand deletes the substitute 
string frcm the text. 

The text deleted is available for use with the C(py B(uffer cctrmand. 

If the amount of text to be zapped exceeds the capacity of the copy buffer, 
the follcwing message appears. (The maximum amount of text that can be 
zajped, and subsequently ccpied by the C(opy B(uffer ccmmand, varies depending 
on the size of the file being edited.) The = (equal sign) moving oommand 
jumps to the Z(ap "anchor" point. 
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I >WARNINGiYou are about to zap more than 80 chars, do you wish to zap?(y/n) I 



If a Y is entered, the following message appears: 



I There is no room to oopy the deletion. Do you wish to delete anyway? (y/n) I 



If a Y for yes is entered, the designated text is deleted and is not placed 
in the copy buffer. Ihe designated text begins with the first character of 
the text last found, adjusted, replaced, or inserted; the designated text 
ends at the current cursor position. 

Figures 3—5 and 3-6 present exanples of the Zap oanmand. The first exanple 
shows Zap used with the Find ccmnand to zap the target string. Ihe secor^ 
exanple shows the use of Zap after an insertion. 

In the figures , user input is shaded . Garments are enclosed in braces ( { } ) . 



>Edit; A(djst C(py D(lete F(ind I(nsrt J(np R(place Q(uit X(Chng, Z(ap ? 

{The following text contains the target to be found and zapped.} 

This paragraph illustrates the use of the Zap cormand to find a 
target and then remove it. The target to be zapped is the first 
occurrence of the ward "cormand". 

P 

>Find [l];L(it <target>=> / 

{The Find oormand searches through the file, placing the cursor 
at the end of the target.} 

Z {At this point, the target is zajp>ed and the text is changed 
as below. } 

This paragraph illustrates the use of the Zap to find a target and 
then remove it. The target to be zapped is the first occurrence of 
the word "cormand". 

Figure 3-5. Use of Zap with the Find Cormand. 
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{The original text aj^ars belcw. } 

1. Turn on the pov\^r for the system terminal. 
Turn the round knob oi the left side ofthe 
terminal clockwise until yDu hear a click. 



The intensity of the cursor and the characters 
are also changed fcytuming the knob. The 
cursor is usually a rectangular box or an 
underline that moves over the screen to ^ow 
you vhere you are currently keying an. the screen. 



2. Turn on the power for the system. Press 
the vhite circle on the red switch that is 
located in the c^^r right comer of the 
system box. 



F 

>Find[l]: L(it <target> => /Hie intensity/ 

{The Find ccmnand searches through the file, 
placing the cursor at the end of the target.} 

Hov# the cursor to end of the :parBgfrapt, past the word 
{The following message appears:} 

WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)y 

{The zap is effected and the text is as below. } 

1. Tlim on the power for the syston terminal. 

Turn the round knob on the left side ofthe 
terminal clockwise until you hear a click. 



2. Turn cai the power for the system. Press 
the vhite circle on the red switch that is 
located in the upper right comer of the 
systan box. 



Figure 3-6. Exanple of tlie Zap Oorrmand. 
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Equal (=) Ctomnand 



The Equal oorinand is initiated ty typing an equal sign (=) fran the Edit 
main cormand line. Although not displayed cn the Edit main ccrrmand line, 
this cannand is displayed cai the secondary Edit conmand line accessed by 
typing a ? from the Edit main ccrmiand line. 

This cannand moves the cursor to the beginning of the last portion of the 
text that vvQs inserted, adjusted, found, or replaced. The Equal cannand is 
not direction-oriented; therefore, it is valid from any location in tine file. 

Whenever text is inserted, adjusted, found, or replaced, the beginning 
location is saved. HDwever, if a ccpy or deletion is made between the 
beginning of the file and the absolute position, the beginning location of 
the last insertion, adjustment, find, or replacement is changed. Therefore, 
the Equal oarmand location is no loiger valid. 



P(age (Page 3-Ccnmand) 



The Page oorinand displays the next page, v\hether ficrv^^rd or bado^ard, vshere 
a page is the number of lines that are ccntained cn the CRT screen (usually 
23-24 lines). The cursor position remains the same except that its logical 
position is moved forward or backvard by n lines. 

At the end of the file, a ccmplete screen is not displayed if the number of 
lines remaining is not a full page. 

To move several pages at a time, the repeat- factor may be used. 

The Page cannand is initiated by entering P frcm the Edit main cormand line. 
The Page cannand moves forvard if a +P is entered or backward if a -P is 
entered. The last entry (+ or -P) remains in effect until changed by a 
subsequent explicit change of direction. That is, once a -P is altered, 
subsequent entries of P move backward in the file until a +P is entered. The 
forward direction is the default until ciianged by a -P entry. 

Although not displayed on the Edit nain conmand line, this cormand is 
displayed oi the secondary Edit coimand line accessed by typing a ? fron the 
Edit main ccmmand line. 
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M(rgn (Margin Ccranand) 



Ihe Margin cxannand adjusts a paragraph as closely as possible (without 
exceeding the inargins) to the margins set in the Environment. The Margin 
catmand is initiated ty typing an M from the Edit rtain cormand line with the 
cursor positioned scmevihere within the paragraph to be adjusted. Although 
not displayed cxi the Edit main aanmand line, this cannand aj^ars on the 
Edit secondary cannand line, accessed by typing a ? fron the Edit main 
cannand line. 

A paragraph is defined as any text occurring between two blank lines. 
Additionally, a paragraph may delimited by the use of the Ganmand Character 
as set in the Environment. In that case, the Cannand Character appearing as 
the first noriblank character on a line causes the Margin cannand to regard 
the line as a blank line. Therefore, the Margin ccmmand begins the 
paragraph on the line immediately after the line containing the Cannand 
Character and adjusts the text until the next blank line or line beginning 
with the Cannand Character is encountered. 

The Margin cannand adjusts oie paragraph at a time and is totally dependent 
on the right, left, and paragraph margins set in the Environment. 

To margin a paragraph, the cursor is placed san 0 Ahere within the paragraph, 
and an M is typed. The Environment setting for A(uto indent must be felse 
and the setting j6or F(illing must be true. The screen goes blank \«hile the 
Editor is readjusting the paragraph. For a long paragraph, several seconds 
may elapse before the paragraph is redisplayed. 

In breaking lines to avoid exceeding the right margin, the Margin ccmmand 
uses spaces or hyphens within WDrds as breaking points. All other characters 
in sequences are considered to be wards. Also, the Margin oormand my ooipress 
groups of spaces into single spaces. 

Figure 3-7 gives two exanples of the r-fergin cannand used with different 
margin settings. Figure 3-8 gives an exairple of the ^fergin ccmmand vshere 
the Cannand Character is used to delimit paragraphs. 
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>Edit: A(djst C(py D(lete F(ind l(nsrt J(inp R(place Q(uit X(chng Z(ap ? 

{The original text of the paragraph ajpears below.} 

The Margin actntiand is executed by typing an M vhen the cursor is in the 
paragraph to be nergined. The I^rgin octnnand adjusts caily cne paragraph 
at a time and aligns the text to the specifications set in the Environment. 

{to adjust the paiagraih to the margins left 10 ^ right - 

70, and the paragraph indlentation » 10 the iipecifications in 
the Bwiroiirieit zstest be set* M.dO« t3ie A(uto Ibteit option must 
be :Use^ and the FCilling cpti<m wmt be true* the cursor 

is placed vdthin the paragraph send the M tipped* The resulting 
parags^ shcMu belo^.l 

The Margin oarmand is executed by typing an M v\hen the 
cursor is in the paragraph to be margined. The Margin 
connand adjusts only caie paragraph at a time and aligns the 
text to the specifications set in the Environment. 




The Margin cormand is executed by typing an M vhen the cursor is in 
the paragraph to be margined. The Margin connand adjusts 
only oie paragraph at a time and aligns the text to the 
specifications set in the Environment. 



Figure 3-7. TVo Exanples of the Margin Connand. 
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{The text belcw is the original text before the Margin 
conTiand is executed.} 



''Baud Rate 

Tb set the baud rate for Port B using the H2 operating systen with 
the SB1600, execute BAUD, a new program. 

^Execution of BAUD causes a menu of baud rates for serial Port B to 
be displayed. Select the number that corresponds to the appropriate 
baud rate. 

{The text below is the text after the ffergin cxxiinaiid is executed 
with the specifications — left « 15, right « 65, and paragr^h 
indeiticai =* 15. } 

'"Baud Rate 

Td set the baud rate for Port B using the H2 
operating system with the SB1600, execute BAUD, a 
new program. 

^Execution of BAUD causes a menu of baud rates for serial Port B to 
be displayed. Select the number that corresponds to the appropriate 
baud rate. 

Figure 3-8. Use of the Margin CcniTiand with Octnnand Character. 



S(et (Set Camiand) 



The Set caimand offers two options; set markers or set environment. The Set 
carmand is initiated by entering an S from the Edit main connand line. 
Although not displayed on the Edit main ccmmand line, this ccmraand appears 
on the Edit secondary carmand line, accessed by typing a ? frcm the Edit 
main connand line. 
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The fbllcwing prorpt appears after the S is typed. 



|>Set: E(nv'ironment M(arker <esc> 



SET MARKER 

Often in a long file the ability to jimp to specified positions is a 
convenience. Ey setting markers in a file, the cursor can be moved quickly 
to those markers ( Junp cormand) . Markers can also delimit text in one file 
that is to be copied into another file (Copy ccmnand) . 

To place a marker in a file, the cursor is moved to that position and SM for 
S(et M(arker is entered. The fiol lowing prcmpt appears : 



I Set vhat marker? 



The name entered may be any length, hovy^ver, at most, eight characters 

are recorded as the marker name. If the marker already existed, it is reset. 

Only ten markers are permitted in a file at any one time. On typing 
SMzzz<ret>", if ten markers exist in the file, the follcwing prcnpt and 
display appear, Where the markers are named aaa through jjj. If the 
eleventh marker is caie named already, the new marker is placed ever the old 
one and no overflew pran pt appears. For example, if '*SMaaa<ret>" is altered 
at marker eleven, no overflow condition exists. 



I Marker ovflw. Which one to replace? 
I O) aaa 
I 1) bl±) 

I 2) ccc 
I 3) ddd 
I 4) eee 
I 5) fff 
I 6) ggg 
I 7) hhh 
I 8) iii 
i 9) jjj 
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9 is entered, that space is available for 
TTius / ori 0 0 xistin 5 nBjrlcsir nuisti 1 d 0 ]TG3iiovgc3. 



in 



A marker nay be removed cy deleting the text that contains the mrker. 



SET ENVIRONIMKNr? 

The Set Environment oannand allows the editing eivironment to be controlled 
by the user. This oannand offers options pertaining to text formatting; 
also the Set Environment oannand displays other information regarding the 
file being edited. 

The Set Environment connand is initiated ty typing an S and then an E (or an 
SE) from the Edit oannand line. A display similar to the following 
appears : 



>Enviroranent: {options} <etx> or <sp> to leave 
A( uto indent True 
F(illing False 

L(eft margin 0 
R(ight margin 79 
P(ara margin 5 
C(annand oh 
T(oken def True 

nnn bytes used, nnnnn available 

Patterns : 

<target>= ' ', <si±)st>- 

Markers : 

ORANGE PEACH 



The options ^own in the ipper part of the display are changed by entering 
the first letter of the option nane and the nev/ value. 

These options are explained in the following paragraphs. The number of 
bytes used in the file is ^own as is the number of bytes remaining for 
use. The creation date of the file and the date that the file vsas last 
written are also i^own. 

The "Patterns" information does not appear unless a Find or Replace has been 
carpleted during the editing session. The "Markers" information is not 
displayed unless markers exist in the file. 
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A(uto indent - When true, the auto indent option causes each new line 
inserted to be aligned (or indented) with the first noriblarik character 
of the previous line. V^en false, this option causes the lines to be 
aligned with the left edge of the screen or begun at the Left margin 
set in the environment. This option affects the results of the Insert 
and Margin ocrtinands. 

In order for an Insert to automatically remargin at the part of the 
paragraph following the insertion, A(uto indent must be set to false 
and F(illing must be set to true. Likewise, the I^rgin command 
requires those settings in order to adjust an entire paragraph. 

To set the A(uto indent option, either AT or AF is typed. If any 
character (or numbers other than T or F is entered, a beep sounds 
and "T or F" appears to the right of the option. Also, the screen 
is frozen until an appropriate choice is made. 



F(illing - When true, the lines of text are automatically filled with 
words ip to the right margin set in the Environment. Lines are broken 
between vhole wards (at spaces) or at hyphens only. 

When false, the margins set in the Environment are ignored; the text 
is spaced as entered. 

This option affects the results of the Insert and Margin ociTinands. The 
Insert oarmand does not cause remargining of the paragraph text following 
an insertion if F(illing is false. Likewise, the Margin ocmmand cannot 
adjust a paragraph if F(illing is felse. 

To set the F(illing option, either FT or FF is typed. If any character 
(or number) other than T or F is entered, a beep sounds and "T or F" 
appears to the right of the option. Also, the screen is frozen until 
an appropriate choice is made. 



L(eft, R(ight, and P(aragraph l^rgins - These margins are set ty entering 
an L, an R, or a P plus an unsigned integer less than or equal to 84 
(the maximum screen width supported by the Editor) and a <space> or 
<ret>. These settings are used by the Insert and Margin commands in 
adjusting a paragraph. These settings also affect the center and 
justify options iji the Adjust command. 
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section.) When the Gcxnnand Character is the first nonblank character on a 
line, that line is not subject to rariargining by the Insert or ?>largin 
carmands. 



The default Gcntnand character is the caret ( ^ ) . This character appears 
as an up arrow in the Environment display but prints as a caret. 



T(oken default - The setting of this option affects the search type used 
of the Find and Replace cannands. (See those sections ficr additional 
explanation. ) 

If the T(oken default is set to true by entering IT, the default search 
for the Find and Replace cannands is a token search. If the T(oken 
default is set to false by entering TF, the default search for the Find 
and Replace cannands is a literal search. 

If any character (or number) other than T or F is entered, a beep 
sounds and "T or F" appears to the right of the option. Also, the 
screen is frozen until an apprcpriate choice is made. 



V(erify (Veri:fy Oonmand) 



The Verify connand verifies the contents of the vork file and the Editor 
status by redisplaying the screen. Ihe Veri:fy command is initiated by 
typing V from caie of the Edit ooninand lines. Although not displayed in the 
Edit main aornnand prorrpt line, this catmand appears on the secondary Edit 
cormand line, accessed by typing a ? from the Edit main cctimand line. 

This carmand redisplays the text window and attempts to adjust the window so 
that the cm'sor is at the center of the screen. 
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3.2 ADmNCED EDITOR 



The Advanced Editor is an enhanced version of the Screen-Oriented Editor 
that offers additional capabilities and seme efficiencies in text 
manipulation. The Advanced Editor is included in the H3 III.0 Operating 
Systen as an alternative to the regular Screen-Oriented Editor, vshich is 
named SYSTEM. EDITOR on the operating system. 



I NOTE I 



If the Advanced Editor is to be used as the system 
editor, the Screen-Oriented Editor can be renamed, 
and then the Advanced Editor can be named 
SYSTEM. EDITOR. In that case, the Advanced Editor is 
called vhen an E (for E(dit) is entered firem the 
system oenmand line. 

The Advanced Editor is directed to experienced users of the MicroEngine. 

This editor is intended fbr use in a program environment v\here large 
programs with multiple include files are used. The Advanced Editor allows 
editing of different files without the need to go to the Filer to change or 
save the wark file. In addition, the Advanced Editor supports a macro 
capability so that powerful strings of editing cemmands can be invoked ty a 
one character cemmand. 

Because the Advanced Editor is self-documenting (interactive documentation),. 
Section 3.2.1 presents the sections of the interactive documentation as they 
appear on the terminal display. Section 3.2.2 summarizes the extentions and 
differences between the Screen-Oriented and Advanced Editor cemmands. 



3.2.1 Interactive Documentation 



The fcl lowing information appears cxi the display vhen the interactive 
documentation is accessed. In the Advanced Editor, the documentation is 
accessed by typing a '?' from the edit cenmand line. The various sections 
and subsections of the interactive documentation are listed continuously in 
this book, separated by dotted lines. 

When accessed interactively, the various sections are chosen by the user 
depending cai the information required. 
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Moving 



Advanced Editor Ctsnnands 



J(urtp [ B(egin, E(nd/ M(arker, A(djoum ], 

<left>, <right>, <up>, <dcwn>, 

F(ind, W(ord, P(age, <space>, <ret>, <tab>, [ directional ] 
'+'or'<', C set direction ] 



Formatting 


A(djust 


Text changing 


D(elete, 

C(opy 


Control 


C(opy 

S(et 

V(erify 

Q(uit 

' ?' 



M(argin 

I(nsert, R(eplace, X( change, Z(ap, 

[ B(uffer, F(ile ] 

C C(ontrols ], 

[ E(nvironnent, M(arker, A(djoum, * (macro ], 
C redisplay screen ], 

C buffer action, next editing option ], 

C interactive docimentation ] 



Interactive Dociinentation 

Interactive docunentation in tlie Advanced Editor is request«J by ' ? ' at most 
editor pronpts that select connand options. '?' at the outer level displays 
all ocnmands and allows selection of the Advanced Editor introduction, this 
section, or specific documentation on any outer level acrnmand. '?' at any 
other editor prompt displays documentation for that ocrnnand. 

Documentation is organized into sections, some of vyhich have subsections 
presenting further information. After any section other than the outer level 
section is displayed, the next option prompt offers <esc> or selection of 
the "parent" section or any subsection of the current one. Ihe prompt after 
the outer level section offers the options mentioned above. 

<esc> returns to the editor prompt vyhere the '?' 'was initially entered. 

Parent and subsections are selected by moving the cursor to the section 
title and typing <etx>. The cursor is intially placed on the Parent title 
(the section of vyhich the current one is a subsection) . 

If a section requires more than coe screen page, the following prompt occurs 
before scrolling to the next page. If reading this section for the first 
time, please type <etx>. 

<esc> or <etx> to continue 

After scrolling has occurred, typing <ret> to any subsequent prompt within 
the section causes it to be redisplayed from the start. This special option 
does not appear in prompts. 
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Advanced Editor Introduction 



The Advanced Editor is an extension of the Screen-Oriented Editor. It 
increases the range of text vhich may be conveniently edited in one session, 
"v^hile providing more flexible editing control of the current file. A surtniary 
of areas of added capability includes 

- improved file control and protection, 

- refinement of seme basic editor canrands and addition of others, 

- user-defined editing ccmiiands by use of a flexible macro fecility, 

- multiple file editing with Pascal vork file control ccninands, and 

- interactive documentation. 

To read about interactive documentation, type <etx> to return to the complete 
cemmand display and then type ' ? ' . Or type any Advanced Editor cernmand listed 
there for specific cctmiand documentation. Select the File C3ontrol section 
here for discussion on expanded editing controls and multiple file editing, 
or the Introduction to Macros to find out how to define your own editing 
cemnands. 



File Control and Protection 

UCSD Pascal text files include a header record that stores editing control 
information for the file. Ihe Advanced Editor adds new control capabilities, 
including user-defined editing mcros, an adjourn (automatic return) point in 
the file and flexible tab stops. It allows oc^jyiJ^g controls between files 
and initializes new files to a standard set of controls provided by the user. 

Multiple files may be edited during one session, and for each file the 
Advanced Editor records v^ether or not the text and/or the editing controls 
have been changed. This status is shown with the current file name in the 
S(et E(nvironment display and by tlie Q(uit display. 

The Q(uit octiiiiand presents edit buffer action and next edit options according 
to this information. It also guards against inadvertent loss of editing 
changes. The Pascal work file may be changed by the buffer action, or files 
other than the WDrk file may be edited without affecting the Pascal work file 
status . 
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Editing Controls 



Ihe edit-controls header in each text file contains the controls defined 
belcw. The Advanced Editor has added control capabilities ; this change is 
reflected by ^ different header version nurrber from the two values used by 
the Screen-Oriented editor and the L2 editor. 

Controls can be copied to and from text files and "edit-controls only" data 
files. These data files contain cnly the controls header and may be used to 
store the different controls appropriate for documents, program source, etc. 

One such file, ' *ADV_ED.oaSPrROLS ' , is assoiied to be a user's standard set of 
controls. The C(opy C(aitrols catmand accepts the name '*' as ^orthand for 
this file. 

The Advanced Editor automatically initializes any new file or a text file 
with an old ccxitrol version from the standard controls ' *ADV_ED.casiTROLS ' . 

If it is not present, the file contains no markers or mcros, and the other 
control values are set to default values defined below. Controls other than 
Macros, Markers, and Adjourn are changed by S(et E(nvironment. 

Macros - User-editing ccrtinands defined by S(et * (macros. See 'Introduction 
to Macros' for further discussion. 

Markers - Up to ten, named, cursor locations in the file. Names are eight 
characters in significance. Markers are set by S(et M(arker and 
jurrped to by J(unp M(arker. If text containing a marker location is 
deleted, the marker is removed. The C(opy F(ile oarmand allows use 
of markers to delimit the text to be copied. Markers are related 
to the text in the file and are not copied by C(opy C(caitrols. 

Adjourn - An explicit location to vhich the cursor is positioned cxi entry. It 
is set by S(et A(djoum and jumped to by J(urrp A(djourn. Its default 
location is the start of the file. If text containing the Adjcsam 
location is deleted, it is reset to the start of the file. Like 
markers, this value is not copied by C(opy C(ontrols. 

Tabs - User-selected tab stops at any column. Tabs are junped to by the 
directional moving aanriand <tab>. Default tab stops are 0,8,16,... 

Auto-indent - A Boolean affecting Insert. If true, new line indentation is 
aligned with the previous line; otherwise, the Left Margin is used. 
Default is true. 

Filling - A Boolean affecting Insert. If true, <ret> is automatically added 
to keep text within the Right Margin. The Margin cctiinand requires 
Filling true. Default is false. 

Token def - A Boolean affecting Find and Replace. If true, the default pattern 
match mode is token; otherwise, literal. See 'Find ccmraand' section 
for further definition. Default is true. 
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Paragraph, Right Margin = integers affecting Insert, Mjust, and 
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colonn terminal* The I^ragrajh margin is the indentation of the 
first line. Defaults are 0,5,79. 



Quit Gcrnnand 

The Quit oannand normally displays the current file name, vvhether or not 
controls and/or text have been changed and ^ows twD prcmpts: buffer action 
and next options. Buffer action refers to options available regarding the 
current edit buffer, and next options offer the user a choice of subsequent 
actions, including editing another file. No action is taken by the Advanced 
Editor until a next option other than backspace is entered. 

The buffer action prompt is presented only v\hen the text in the file has been 
changed. If no changes are made. Quit displays 'no changes to' file name 
instead of the buffer action prorrpt and offers the next option prompt. If 
only control changes are made. Quit similarly displays 'Control changes only' 
with the file name and will update the changes in the source file by default. 

The user may backspace from the next option back to the buffer action. For 
exanple, if default update of control changes is not desired, the changes my 
be discarded ty backspacing from the next option to the buffer action and 
then altering D(iscard. 

To protect against inadvertant loss of editing changes, the Advanced Editor 
always requires confirmation before text changes are discarded. 

If a code file with the same name as the text file exists, it is ronoved vvhen 
text changes are written to the source file. The code file is not ronoved if 
only control changes are written to the source file. 
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<file-name> Buffer Action ? 

< status > 

<esc>, <ret>, '?* 

U (pdate 
S(ave 

W{rite to a file 
D(iscard 

Ihe action to be taken on the edit buffer is specified by this protrpt. The 
source file name (or 'new file* ) and its status are shown to the left of the 
prorpt. Status indicates v\hether or not text and/or controls changed. 

<esc> - Leaves the editor. 

<ret> - Returns to editing. 

D(iscard - Discards edit buffer and offers the next option. 

If text changes are made, <esc> and D(iscard confirm: 

'Discard changes to < file-name > ? ' 

N(o requires respecifying the buffer action. 

' $ ' - Writes the buffer to the source file without altering the Pascal 

work file. This option is not available for a new file. 

U( pdate - Writes the buffer to ' *SYSTEM.WRK.TEXT' and updates Pascal work 

file status to reflect this file as the current version, with the 
source file as the base file. 

S(ave - Writes the buffer to the source file and updates Pascal work file 
status to reflect the source file as the base file. Existing 
updated versions of the Pascal work file are removed. For a new 
file, the base file name is entered after the prciipt 
'Save as what file ? ' 

W(rite - Writes the buffer to the file name specified after the prcnpt 
'Output file ? ' 

If the file name is not a disk file (for exarrple, 'PRINTER: '), 
the file header containing the edit controls is not written. 

If an ipdated work file ( ' *SYSTEM.WRK' - text and/or code) exists whose 
base file is different from the current source file, U (pdate and S(ave 
must ranove it. In this case, both confirm: 

'Discard current work file (source = <file-name>) ? ' 

N(o requires respecifying the buffer action. 
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==> Next Options 

<esc>, <ret>, <left>, '?' 
<file-name>, 



Next Option ? 

The action to be taken next is specified by this prorpt. No buffer action is 
taken until a response other than <left>, or backspace, is given. After the 
next option is specified, the buffer action (if any) is perfomed before the 
requested next action. 

<esc> - Leaves the editor. 

<ret> - Returns to editing. 

<left> - Goes back to the buffer action prorpt for respecification. 

<file-name> - Causes the text file name entered to be edited next. 

- Causes the nost recent version of the Pascal ^^ork file to be 
edited next. This file is ' *SYSTEM.WRK.TEXT ' if present or the 
base file otherwise . This option is not offered if no Pascal 
work file exists. 

If a <file-name> is entered but the file is not present. Quit prcnpts 
‘Create <file-name> ? ' 

If the answer is Y(es, a new file with the given <file-name> may be created 
next. N(o requires respecifying the next option. 



Editor Input Conventions 

Outer level editor coranands are selected by typing single terminal keys or 
a special Prefix and a single key. Each key except the Prefix my be 
associated with a primary and an alternate ccrnmand, and either cciiinand my be 
a basic editor caimand or a user-defined mcro command. Typing a key invokes 
the primary carmand and typing Prefix key invokes the alternate command. See 
'Introduction to Macros' and its siibsections for further discussion. 

Upper and lower case letters are treated as the same key at the outer level 
and in all cases of single char command options. 

Basic editor commands commonly prompt the user to enter a name or select a 
command option. Ccrnmand options are given by typing one of the displayed 
single chars. The entered char is not interpreted as a mcro, although a 
previously invoked mcro my include the single char response in its mcro 
string. 
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File or marker names are entered by typing the name and <ret> to terminate 
the input. <left>, or backspace, is used to back up over the previous char. 
<del> backs Lp over all the previous input. Ihe particular conmand is 
aborted if the name is enpty vyhen <ret> is typed, or if <esc> is typed at any 
time before <ret>. The standard suffix '.TEXT' does not need to be typed for 
text file names; it is appended to the name as needed. 

User ocffifirmation of a particular action and other yes or no questions are 
offered ty various editor oarmands. These are answered by Y(es, N(o, or 
<esc>. Normally <esc> is the same as N(o; differences to that rule are 
explicitly noted in the documentation. 



Introduction to Macros 

Macros are user-defined editing ccrrmands. Each macro is a key vhich maps to 
a string of up to 25 characters. The string defines the editing action that 
takes place vhen the macro is used. Macro ccmnand keys are recognized at the 
outer level of the editor and in places vhere moving ocmTiands are valid 
(within D(elete mode far exanple). 

The macro string may include basic editor cotirvands, responses to prompts that 
result from those commands, or macro keys (including recursion cxi the macro 
itself). Macros may also be defined to include interactive input. A special 
char (shown as <user>) may be put into the macro string. Vhen this char is 
encountered, input is taken interactively until <etx> is typed. 

Any key on the terminal may be defined to be a macro oonmand. To increase 
naming flexibility, the Advanced Editor can recognize twD oortinands for any 
key: the prinary and alternate commands. Either of the corrmands associated 
with a key my be a mcro or a basic editor conmand. For exarrple, a mcro 
named 'D' my be defined as the alternate 'D' conmand, vhere D(elete remains 
the primary oonmand, or vice versa. 

A special "alternate conmand" key called the Prefix is used preceding any 
command key to indicate the alternate conmand for that key. The Prefix key 
is specified by the user and my be changed at any time. 

Macros are stored in the edit controls header of each text file, so that any 
file my contain its own set of mcros. Easy copying of mcros among files 
is provided by the C(opy C(ontrols command, as well as the capability for 
each new file to be initialized from a standard set of mcros (discussed in 
the 'Edit Controls' section). 

Macros are displayed, defined, and removed by the S(et * (mcros ocmmand. This 
conmand could not be named S(et M(acros because that would have conflicted 
with S(et M(arker. 
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Macro Gonnands ars rscognizad at tha outsr Isvsl and \^©ir© inovinQ ocnniands 
ar© valid. Ih© macro string is "©xpandsd" into a ^cial input buffer, and 
input is taken from the macro exjansion until it is exhausted. Nested macro 
keys are similarly expanded v^en enccxintered, including recursion the 
original iracro. Eynamic macro expansion may be ip to 255 characters. 

When the <user> input c3iar is encountered in the macro expansion, the active 
macro is suspended, and input is taken interactively from the user. Hiis mode 
is terminated by typing <etx>, causing resumption of the macro. Ihe <etx> is 
not read ty any editor cciTinand; it cxily switches input mode. 

The Prefix key is used within a macro to specify an alternate comiand just as 
it is interactively? The following example shows definition of a macro as 
the priiTBry corniand such that a basic editor cannand becomes the alternate 
cerrmand. The exairple also illustrates a <user> input parameter and nesting 
of macros . The default Prefix value ' @ * is used in the example . 

Macro Definition Explanation 



0B JB J(ump B(egin 

F 0B@F/<user>/ 0B invokes the junp begin macro, @F is the alternate 

F ccnmand (the standard Find) and <user> allows 
the pattern to be typed interactively. After the 
terminating <etx> is typed, the closing delimiter 
/ is read from the macro to initiate the find. 

The outer level input ' Fwhat_ever<etx> ' junps to the beginning of the file 
and finds the pattern 'v\hat_ever' . 



Macros; D(efine, R(emove, C(ontrol-chars, Q(uit 

The macro environment accessed by S(et * (macros displays the above prompt, 
the current Prefix and <user> characters, how many macros are defined and 
available, and all the currently defined macros. Prefix and <user> 
characters my be changed by the C(ontrol-chars cemmand; a total of 20 
mcros my be defined for any file. Macros are always displayed with the 
Prefix if they are alternate caimands; 

<Xey> = <mcro-string> or @<key> = <mcro-string> 
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The <rnacro-string> shows printable characters directly and nonprintable 
characters as <name> or CIRL_<key>. Oonmon ke^'board characters are diown in 
the first form (<ret>, <left>, <etx>). Otherwise, they are i^own in the 
CTEIL_ form, v\here <key> is the appropriate ASCII char typed with CTRL. 

R(emove prompts 'Remove vhat macro (CIRL E to escape) the rracro to be 
rouoved is entered (with the Prefix if an alternate conmand) . See 'Macro 
Control Characters' section for explanation of the macro escape key. 



Controls; P(refix, A(ccept, E(scape, B(ack-up, U(ser- input, '?', Q(uit 

@ = Prefix char 

CTRL _A = Definition accept char 
C1RL_E = Definition escape char 
CIRL_B = Definition back-up char 
CIRL_U = User interactive-input char 

The C(ontrol-chars cormand displays the above prompt and control-char 
status. The values shown here are the defaults. Each nay be changed by 
entering the desired control-char name, for example A(ccept, and then the 
new value. 

The Prefix and <user> chars are discussed in 'Introduction to Macros' . Both 
can be included in defined macros, and vhen their values are changed by this 
command, all current macros are automatically i^xJated to the new value. 

The other three control characters are used in defining nacros. The escape 
char may also be used to abort the R(emove nacro cxunand or any of the above 
ccxitrol-char change commands. 



Define vhat macro (CTRL_E to escape) 

The macro <key> is entered, preceded by the Prefix if it is to be an 
alternate command. The definition escape char may be used to abort the new 
definition. If the <key> is not an existing basic editor oarmand or rtacro. 
Define ^ows the co>ntrol characrters used for definition and the new macro; 

CIRL _A accept, CIRLJE escape, CIRL_B back-up, CIRLJJ user- interactive- input 
<key> = 

The macro string is then entered. The accept char is used to terminate the 
definition; the escape char to abort it; and the back-up char backspaces 
over the last char entered (default values are shown above) . 
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If the new macro <key> is a basic editor ccsisrend or a macro# Define prompts 
as fe>llows before the macro string is entered? 

Override <editor oarmand> ? (for example 'Override F(ind ?') 

Replace macro ? 

<key> = <niacro-string> 

These prompts may be answered Y(es, N(o, or <esc> (the normal editor <esc>). 
Y(es causes the < editor cQrTinand> to become the alternate <key> command or 
implicitly removes the previous macro. <esc> aborts the definition. If the 
new macro was not initially prefixed, N(o prctipts 

Prefix <key> ? 

If Y(es is entered, <key> is defined as an alternate ocmmand; otherwise, 
the new definition is aborted. 



Set; E(nvironment, M(arker, A(djoum, * (macro, '?', <esc> 

The Set ccnmand offers access to edit controls according to the above proipt. 

See subsections for Set Environment and Set Wbcro oorrmand discussions. 

M(arker - Prorpts fbr a marker name; 

'Set vhat marker? ' 

The marker entered is set to the current cursor location. The 
marker name may contain any char and is significant through eight 
chars. A file my have ip to ten markers. If no markers are 
available and the entered marker does not already exist, the ten 
existing markers are displayed with the prorpt 

'Marker overflew; enter name of marker to replace or <esc> ' 
An immediate <ret> or <esc> before <ret> for either prorpt aborts 
the Set lybrker oarmand. 

A(djoum - Sets the adjourn location to the current cursor position. This 

causes the cursor to be automatically set to its current position 
vshen the source file is next edited. 
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Environ: <c^ion letters >, S(et-tabs, Q(uit 

The edit control environnent accessed ty S(et E(nvironment displays the above 
projTpt, the Advanced Editor version, edit control values that my be changed 
by environment options, the source file name and edit buffer status, and 
other control information. See 'Edit Controls* section for definition of 
control values. 

<option letters > refer to the first letters of the edit controls shc«vn at the 
top of the screen. Their values are changed by Altering the appropriate char 
and the new value. Auto indent. Filling, and Token def are Booleans; new 
values are entered as ' T ' or ' F ' . Gcartmand ch is set to any char value . 

Left, Right, and Paragraph Mcirgins are integers in the range C0..84]. 

The source file name is displayed; if text and/or edit controls are changed, 
the change status is shown to the right of the file name. Also displayed is 
the nunber of edit buffer bytes currently used and available, and the (3ate 
the source file was created and last changed. 

If markers exist in the file, their names are displayed in the order in vhich 
they cxour (from the start to the end of the file). Find/Replace patterns are 
displayed if they have been defined. <target> is the last Find pattern or 
Replace source pattern, and <sub> is the last Replace substitute pattern. 

The number of < target > replacements by <sub> is shown after Replaces. 

Tabs are displayed as a full line of '-* and 'T' chars, vhere 'T' indicates a 
cxjlumn with a tab stop. The S(et-tabs option positions the cursor on column 0 
of the tab line and prai^s as follows: 

Tab stops: Q(uit, <left,right>, S(et, R(eset, Z(ero, C(ol # 0 

The cursor column position is changed by entering an optional repeat-factor 
with <left> or <right>, or by entering C(ol and the new column value. S(et 
and R(eset define and remove a tab stop at the current column; 'T* and 
are also recognized for S(et and R(eset, respectively. Z(ero resets all tab 
stops from the current colimn to the end of the line. 
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Copy; Bfuffsr# F(ile# C(ontrols# '?'# <esc> 

Text and editing controls are copied according to this prcnpt. The F(ile and 
C(ontrols qptions provide copying frcm the current edit buffer to external 
files or from external files into the edit buffer. See the respective sub- 
sections for further discussion. 

The B(uffer option specifies copying text from the copy buffer to the current 
cursor location. The copy buffer contains the text last inserted, deleted or 
zapped. It contains the deleted text if delete is terminated by <etx> or 
the text that would have been deleted ^«hen delete is terminated by <esc>. 

The two delete cases are effective ways to move and copy text respectively. 
The copy buffer is not changed if insert is terminated by <esc>. 

If the copy buffer contains entire lines, all lines are copied with their 
original indentation before the line in which the cursor is located. If the 
copy buffer contains partial lines, it is copied to the exact location of 
the corsor and the line into which it is copied retains its current 
indentation. 



Copy controls F(ron T(o another file, '?', <esc> 

Editing controls are cx^ied according to this prompt. The first option 
specifies the direction of the copy: F(ran another file into the current edit 
buffer or T(o another file from the edit buffer. The copy controls oannand 
prompts according to the specified direction 

TO what file ( ) ? or FRCM what file ( '*' ) ? 

where stands for the user's standard set of controls, ' *ADV_ED. CXDNTROLS ' . 
The file name entered may refer to a text file or an "edit-controls only" 
data file, such as ' *ADV_ED. CXNTROLS ' . See 'Editing Controls' section for 
further information on edit controls files. 

When the oatmand is C(opy C(ontrols T(o and the file does not exist, an edit 
controls data file is created with the entered file name. This case allows 
storing a set of editing controls for subsequent copying by other files. It 
is the means of initially creating the standard controls file. 

Markers and the Adjourn location are directly related to the text in the file 
and are not copied by the copy controls cantiand. 
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Copy text F(rcm T(o another file, <esc> 

Text is copied according to this prcrrpt. The first option specifies the 
direction of the copy; F(rom another file into the current edit buffer or 
T(o another file from the edit buffer. The copy file ocninand prcrrpts 
according to the specified direction 

TO v\hat file ( firom <marker-spec> ) ? or FRCM vAiat file ( <marker-spec> ) ? 

The copy TO option creates a file with the entered file name containing text 
from the current edit buffer. The optional <marker-spec> may be used to 
delimit the text that is written. The ocpy FRCM option copies text from the 
entered file to the current cursor location; in this case, the optional 
<marker-spec> refers to markers in the external file. 

The <marker-spec> includes marker names enclosed by ' [ ' and ' ] ' : 

<marker-spec> = C M , ] - from marker M to the aid of the file 

C , M ] - from the start of the file to marker M 
[ Ml, M2 ] - between markers Ml and M2 (order doesn't matter) 

C(opy F(ile T(o allows a fourth <rtarker-spec> form: 

[ M ] ““ between the current cursor location and marker M 

In all cases, the copy file cormand oc^ies aitire lines. Text is copied from 
the start of the line containing the initial marker (cursor) to the end of 
the line containing the final marker (cursor) . 
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Non-Directional Moving Ccsnrands 

These moving cannands are not affected tav the current direction. The arrow 
keys may be preceded by a repeat-factor to speci:fy the number of columns or 
lines to move. The Jump connand is discussed in a separate section. 

<left> - moves the cursor x columns left I x = 1 

<right> - moves the cursor x columns right I or 

<up> - moves the cursor x lines ip I x = repeat-factor 

<down> - moves the cursor x lines down I 

<left> and <right> keep the cursor within lines; <left> moves from the start 
of a line to the aid of the preceding line and < right > moves from the aid of 
a line to the start of the next line. <up> and <down> maintain the current 
column in the line to vhich the cursor is moved. 

' = ' - moves the cursor to the start of the text last Found, Replaced, 

Inserted, or Adjusted; the Zap cannand deletes text frcm to 
the current cursor position. 



Juirp: B(egin, E(nd, M(arker, A(djoum, '?', <esc> 

The Junp ccitrnand repositions the cursor according to the above prcrrpt; 

B(egin - Junps to the start of the first line in the file. 

E(nd - Jumps to the end of the last line in the file. 

M(arker - Jurrps to the location of the marker entered in response to 

'Junp to vhat marker? ' 

An immediate <ret> or an <esc> before <ret> aborts the jurtp. 

A(djcxim - Jurrps to the adjourn location in the file. This is the 
initial cursor location when the file is next edited. 
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Directional Moving Cornnands 



These oonnands move the cursor in the current direction by units depending on. 
the particular move — chars, lines, etc. Each directional moving oonnand may 
be preceded by a repeat- factor that specifies the number of units to move. 
F(ind is also a directional carmand; it is discussed in a separate section. 

<space> - moves chars (colimns) 

<ret> - moves lines and positions the cursor on the start of the line 
<tab> - moves to tab stops 

W(ord - moves wards and positions the cursor on the start of the ward — 
words are sequences of chars separated by < space >s and <ret>s 
P(age - moves screen display pages and redisplays with the cursor cxi the 
same relative screen line on which it v\as initially located 

The default direction is fbr\\mrd; the following cotinands change direction 

'<', and set direction backward, or 
' > ' , ' . ' and ' + ' set direction fiorvyard. 



>Find[r]! '?' L(it <target> => or >Find[r]; '?' T(ok <target> => 

The Find ccrnnand is a directional moving aanrend which positions the cursor 
to the end of a specified <target> pattern. Find offers twro pattern matching 
modes; Tbken and Literal. The Token def control value determines the default 
mode; the other mode is selected by entering L(it or T(ok preceding the 
<target>. The <target> pattern used ty the last Find can be specified by 
entering 'S' (for Same) instead of the full < target >. 

Literal mode causes any occurrence of the < target > pattern to be found exactly 
as entered, including multiline patterns. Token mode causes isolated 
occurrences of tokens to be found. A token is any punctuation char or a name 
(a sequence of alpha, numeric, and '_' chars.) Names are delimited by <ret>, 
<space>, or punctuation tokens. Multi token patterns can be specified. 

A repeat-factor is used with Find to speci:fy how many occurrences of the 
< target > pattern to find before stopping. The default value of 1 causes the 
next < target > pattern in the current direction to be found. The Find prompt 
shows the repeat- factor, indicated by '[r]' above. 

<target> Specification 

The <target> pattern is enclosed within a set of identical delimiters. 

The first char entered defines the delimiter, which can be any char other 
than a token name char. The <target> pattern is the chars entered 
between (but not including) the delimiters. L(it or T(ok is entered 
before the opening delimiter to switch the default pattern mode. 
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<left> backspaces ever "Une preceding <target> char, and <del> backs ip 
to the start of the < target > * 

'S' is entered instead of the <target> to indicate the same pattern. All 
occurrences of a given <target> can be found ty entering the full <target> 
initially and 'FS' to find subsequent occurrences. L(it or T(ok must be 
entered as needed with each Find cenmand; for example, if Token def is 
true and the initial Find is ' FL<target> ' , subsequent literal Finds must 
be entered as ' FI5 ' . 

Aborting Find ’ey <esc> 

<esc> can be entered at any time before the closing delimiter to abort 
the Find cctnnand; in this case, the previous <target> is not changed. 

<esc> can also be entered to abort the Find during the <target> search. 

Multiple-File Finds 

The current < target > pattern is preserved throughout an editing session. 
Ibis feature allows entering a pattern once, using the Q(uit <file-name> 
option, and using 'FS' to search for it in other files. 

Literal / Token Mode Exanples 

The literal <target> /is/ is found in any of the following text sequences: 
' isolated ' , ' find is safe ' , or ' distance ' . 

A token mode Find of /is/ finds only the middle occurrence. A token Find 
of /x is/ also finds 'x is ' or 'x, 

is not' . 

A literal find of /x is/ finds neither occurrence. 



AdjustCxx]: L(just, R(just, C(enter, <arrows> {<etx> to leave] 

The Adjust cannand allows lines of text to be shifted right or left according 
to the above pronpt. Options other than <ip> and <dcwn> refer to the line in 
\shich the cursor is located. To adjust a sequence of lines, one line is 
adjusted; then <ip> or <dcwn> is used to adjust the line above or belcw by 
the same amount. The cursor colimn is shown in the prempt throughout the 
Adjust ocranand (indicated by [xx] above). 

Adjust mode is terminated by entering <etx>; <esc> can only be entered to 
abort the Adjust cemmand before any line adjustment is specified. Specific 
adjust cptions are defined belcw; a repeat-factor can be used with the 
<arrow> keys (x is used below to mean 1 or the repeat- factor ) . 
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L(just - aligns the current line to the Left iVbrgin 

R(just - aligns the current line to the Right I'fergin 

C( enter - centers the current line between the Left and Right Margins 

<left> - shifts the current line x spaces left 

< right > - shifts the current line x spaces right 

<iJ5» - adjusts X lines above the current line by tlie current adjust amount 

<down> - adjusts x lines below the current line by the current adjust amount 



Margin Ccrrmand 

The Margin oonnand is used to adjust the paragraph in vshich the cursor is 
located as closely as possible to the Paragraph, Left, and Right nnrgins. A 
paragraph is defined as any text occurring between two blank lines. A para- 
graph may also be deliinited by use of the Gcninand Char appearing as the first 
nonblank char on a line. In that case, the line is regarded as a blank line. 

Ihe first line of the paragraph is adjusted to the Paragraph margin; other 
lines are adjusted to the Left nargin. In breaking lines to avoid exceeding 
the Right margin, the Margin ccmnand regards <space>, <ret>, and hyphen 
as word delimiters. Also, the Margin oonnand may corpress multiple <space>s 
into a single <space>. 

Margining is normally used \«hen Auto- indent is felse and Filling is true; 
if either value is not as above. Margin prompts 
'Do you wish to margin this paragraph ? ' 

If the response is Y(es, the current paragraph is nergined; otherwise the 
Margin ocmmand is aborted. (Auto- indent and Filling also affect Insert). 

All ocntrol values that affect Margin are accessed by S(et E(nvironment. 



Insert; TEXT, <left>, <tab>, <del> {<etx> to accept, <esc> to abort} 

The Insert ocmmand allows general insertion of text into the edit buffer 
according to the above prorpt. Ihe new text is inserted as typed at the 
location of the cursor v\hen Insert is entered. Insert mode is terminated 
by <etx> to accept or <esc> to abort the insertion. 

If Auto-indent is true, new lines are aligned with the preceding line; other- 
wise new line indentation is the Left Nfergin. If Filling is true, <ret> is 
automatically added to keep lines within the Right Margin. Ihe following 
special chars are interpreted as Insert control ccmmands; other nonprintable 
chars are inserted as typed and displayed as ' ? ' . 
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<left> - backspaces o^er tiie preceding inserted cdiar 
<d <=>i > — backs up bo the end of the preceding inserted line 
<dcl> - backs up to the start of the current inserted line 
(<dcl> is ASCII code 17 — normally CIRL_Q) 

<tab> — inserts blanks ip> to the next tab stop on the line 

Ihe inserted text is available to be copied by C(cpy B(uffer if accepted; if 
Insert is aborted by <esc>, the current copy buffer is not changed. 



Delete, Zap ccmnands 

These two caimands delete text from the edit buffer. The deleted text is 

available fbr subsequent copying by the C(opy B(uffer oanriand. 

Delete - Enters Delete mode; the current cursor position is recorded as 
the anchor location and the following projipt is displayed 

>Delete; < > <^toving ccrmiands> {<etx> to delete, <esc> to abort} 

All moving ccmnands may be used in Delete mode, including direction 
change. Text is deleted as the cursor is moved away firom the anchor 
and restored as the cursor is moved toward the anchor. Delete mode 
is terminated by <etx> to accept or <esc> to abort the deletion. If 
<esc> is entered, the text vhich would have been deleted by <etx> is 
available for copying. 

Zap ~ Deletes text between the cursor and the *=' location — the start of 
the text last Bound, Replaced, Inserted, or Adjusted. If more than 
80 chars are being zapped. Zap requires confirmation before deleting 
the text. 



>Repl[r]: '?' L(it V(:fy <target><sub> => 
or 

>Repl[r]: '?' T(dk V(fy <target><sub> => 

The Replace cormand finds a <target> pattern and replaces it with a specified 
substitute. Replace extends the Find ccmnand by offering pattern replacement 
capability. See the Find ccmnand section for discussion of all aspects of 
< target > pattern search, including Token and Literal pattern matching modes. 
Token def, accessed by S(et E(nvirorTnent, determines the default mode. 



A repeat^ factor is used witli Replace to specify how uiany ‘<target^ patterns to 
replace by substitute patterns. '/' can be used with Replace to speciify all 
occurrences. The proipt i^ows the repeat- factor, indicated by ' [r] ' above. 
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Hie Replace ccmnand searches for the <target> pattern in the current direction, 
finds the specified niitiber of occurrences, and replaces each occurrence with 
the substitute pattern. User verification of each replacem^t is cptionally 
requested by entering V(fy preceding the <target> pattern. When verification 
is selected. Replace offers the following prorpt for each <target> occurrence 

>Replace[r]: <esc> aborts, 'R' replaces, ’ ' doesn't 

<esc> is used to abort tlie Replace oanrend. 'R* causes replacement of the 
current <target> occurrence, and ' ' indicates not replacing it. Ihe Replace 
carmand ocaitinues after both ' R ' and ' ' . 

Ihe < target > and substitute patterns are entered according to the rules 
defined in the Find oarmand section. The substitute pattern is indicated by 
<sub> in the proirpt. Each pattern is enclosed within a pair of identical 
delimiters. The delimiters used for the <sub> pattern can be different frcm 
those used for the < target > pattern. 

The options L(it or T(ok, and V{fy are entered before the < target > pattern or 
betveen the closing delimiter for < target > and the opening delimiter for 
<sib>. 'S' can be used for either pattern to indicate the same pattern as 
the last Replace. The S(et E(nviroment oannand displays the current form 
of both patterns and shows the number of <target> patterns actually replaced 
after a Replace ccmivand is executed. 



Xchange: TEXT, <left>, <right> {<etx> to accept, <esc> to abort} 

The Xchange cotinand allows existing chars in the current line to be exchanged 
on a cxie— for-one basis by new chars being entered. New chars are exchanged 
at the current cursor location and the cursor is moved right for each char 
entered . 

The <left> arrow, or backspace, moves the cursor and restores the original 
chars. The <right> arrow moves the cursor over existing chars without 
exchange. Xchange mode is terminated by <etx> to accept or <esc> to aboirt 
the exchange. 

If the cursor reaches the aid of the line, the Xchange is irrplicitly 
accepted and the Insert cxitinand is automatical ly invoked. This allows easy 
extension of the laigth of the line or addition of new lines following it. 
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Veri:^ GCEtinand 



The Verify corinand redisplays the screen without moving tie cursor. If no 
repeat- factor is entered, the line containing the cursor is centered in the 
redisplayed screen. 

A repeat- factor is used with Veri:fy to specify the redisplayed screen line 
nurnber for the line containing the cursor. This allows explicit control 
over the amount of text that is ^own before and after the cursor. 

A repeat- factor in the range [2. .height] is a valid line nurnber, v\here 
height is 23 for a normal 24 line terminal. Prompts are displayed on line 0; 
the default repeat- factor, 1, and other invalid values cause centering. 



3.2.2 CJonmand Differences 



The following surrmaries briefly describe the differences between specific 
Advanced Editor caimands and the corresponding Screen-Oriented Editor commands. 
In most cases, the Advanced Editor oomnand extends the capability of the 
Screen-Oriented Editor ccrrmand. The carmands are grouped as follows: moving 

caimands, formatting carmands, text-changing commands, and control cannands. 

Refer to the appropriate discussions in Section 3.2.1 for details of the 
Advanced Editor ccnraands and to Section 3.1 for discussions of the Screen- 
Oriented Editor commands. 



Moving Commands 



Several moving cctimands are extended (or different) in the Advanced Editor. 
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JIMP COMMAND 



In the Advanced Editor, the Junp conmand contains an additional option - 
J(urtp A(djoum - vhich repositions the cursor to the adjourn location in the 
file. 



FIND OOMMAND 

The Find cotinand offers several additional features in the Advanced Editor. 

1. A <del> my be used to erase the characters backwards to the 
beginning of the pattern. 

2. An <esc> my be used during an attempted find action to abort 
the search. 

3. Ihe response (a space) to the prompt ' <target> not found...' 
my be typed ahead or an <esc> my be used. 

4. Repeated backmrd finds of a target (using FS) do not require 
that the cursor be "manually" moved to the beginning of the 
target in order to find the second occurrence of the target. 

5. Find patterns are preserved across files in any given editing 
session. 



W(ORD CCM^AND 

This comiand is an additional coninand of the Advanced Editor that 
repositions the cursor (directional) to the first noriblank character of the 
next word. A "word" is defined as a sequence of characters not including a 
<space> or a <ret>. 



<tab> CCMMAND 

The <tab> ccrmand repositions the cursor (directional) to the next user- 
specified tab stop. If the next tab stop is beyond the end or 
before the start of the printed line, the cursor is still positioned at the 
next tab stop. 

In Insert mode, spaces are implicitly inserted from the initial cursor 
location to the tab stop. 
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Formatting Qsrsnands 



Two Advanced Editor cantiands that effect formatting of text are different 
frctn the cor responding Screen-Oriented Editor ocfnrnands = 

ACDOUST C3QMMAND 

The Adjust cannand prompt line ^ows the column-number location of the 
cursor as shown below by "xx": 

I >AdjustCxx]; L(just R(just C( enter <arrows> {<etx> to leave} 



The column number is displayed imnediately; thus, A(djust <esc> may be used 
to ^cw the current cursor location. 



M(ARGIN OCMMAISID 

In the Advanced Editor if an M is entered and Auto-indent and Filling are 
not set FALSE and TRUE, respectively, a prompt line appears as below: 



I Do you wish to margin this paragraph? (Y/N) 



If a Y is entered, the current Auto-indent and Filling settings are 
suspended; the paragraph is margined (Auto-indent and Filling are 
tenporarily set to FALSE and TRUE, respectively); and the original (saved) 
settings fbr Auto-indent and Filling are restored. 



Text-Changing Cotinands 



Seme additional features are offered in three Advanced Editor commands. Ihe 
additions to the R(eplace command are the same as those additions described 
in the Find cotimand listed in Moving Commands in this section. 



X (CHANGE COMMAND 

Ihe Exchange command allows characters to be exchanged on a one-for-one 
basis regardless of the initial cursor location within the line. Ihat is, 
the Screen-Oriented Editor command does not allow the cursor to be moved 
left of the initial position; this command allows the entire line to be 
changed. Vihen an end-of-line is encountered, the exchanged text is 
implicitly accepted, and the Insert command is automatically invoked. 
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C(OPY F(ILE OCMMAND 



This Gotinand offers the choice of copying "from" or "to" a file. Also, a 
list of marker choices is shown that allows copying (1) from a marker to the 
end of the file; (2) from the start of the file to the marker; or (3) 
between two markers. In the copy to a file, an additional choice is 
offered: copy the text between the current cursor location and the marker. 
Ihe "copy to a file" option is a new feature of this oatinand. 



Control Gonmands 



The Advanced Editor offers a new C(c^y command option that copies editing 
controls to or from a file. Also, the S(et E(nvironment connand contains 
additional features. 



c(opy c(asrrRQLS command 

This cornnand copies the editing controls (for example, the standard set of 
controls '*ADV _ED.CCNrROIjS ' ) from another file into the current edit buffer 
or to another file from the buffer. 

The Advanced Editor S(et E(nvirorment cornmand prompt line is ^own below: 



I Environ: <option letters >, S(et-tabs, ’?', Q(uit 



These choices (1) allow the editing environment to be changed; (2) allow 
tabs to be set; (3) cillcw interactive documentation to be viewed; and (4) 
allow a return to editing. 

When compared with the Screen-Oriented Editor ccmmand, this command displays 
some additional information. The file name and status, < target pattems> 
(even complex or multiline ones), and tab positions are idiown. 

The S(et-tabs (^Jtion causes the cursor to be placed on column 0 of the tab 
line as follows: 



I Tab stops: Q(uit, <left,right>, S(et, R(eset, Z(ero, C(ol # 0 



The tab stops are ^own on the display as below (T is tab stop and - is not): 
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me various S(et-tabs options are described in the following paragraphs. 

Q(uit 1 en L ujnates the tab settmg operatron . 

^ left/ rights Moves the cursor over the tab line without changing the 

tabs. A repeat- factor may be used. The column number is 
displayed as the cursor moves. 

S(et, R(eset — Changes the tab at the current column and advances bo 
the next tab stop (T). A 'T' is allowed for Set, and 
a - is allcsfted for Reset. 

Z(ero — Resets or clears all tabs fircm (and including) the current column 
to the Old of the line. 

C(ol — Allows a new column to be altered directly and positions the 
cursor on the column # (at the end of the pronpt) v\here the 
new column is entered. 



I NOTE I 



A column number outside the range 0. .79 is not 
allowed. For exanple, if the cursor is on column 
10, and an IK- or 70-> is entered, the cursor is 
not repositioned. 



S(ET COMMAND 



The *( macro and A(djoum options are enhancements to this ccmmand. The S(et 
* (macro allows macros (user-editing ccxtmands) to be defined. The S(et 
A(djcxim option sets the explicit location to vhich the cursor is positioned 
on aitry to the file. 



V (ERIFY CCMMAND 

The Advanced Editor aihancement to this ccmmand allows the user to specify the 
redisplayed screen line number for the line to contain the cursor. That is, 
use of a repeat- factor enables the user to explicitly control the amount of 
text ^own before and after the cursor on the redisplayed screen. 
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Q(UIT QCMylAM) 

The Advanced Editor Q(uit oontiand offers the user additional cihoices regarding 
the termination of an editing session. Ihese options are divided into actions 
possible with the edit buffer and the next actions to be executed. These 
various choice are explained in detail in the Quit Gcninand discussion in 
Section 3.2.1. 
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editing of files \^hich are too large to fit into the min memory buffer. 
This editor automatically produces a backup copy of the file being edited. 
Because the L2 Editor is an extended version of the Screen-Oriented 
Editor, very few differences exist between the two editors. These 
differences are described in the following subsections. 



3.3.1 Initiating the L2 Editor 



Unlike the Screen-Oriented Editor, the L2 Editor must be executed as a code 
file. That is, an X (for execute) is typed from the outer level ocniTiand 
line of the III.0 Operating System. A prcrtpt asking which file to execute 
then appears. The response is "L2". 

An alternate approach is to rename the L2 code file as the SYSTiiM. EDITOR. 

In that case, the L2 Editor is called from the system min command line \\hen 
an E is entered. 

3.3.2 Space Constraints 



If enough space does not exist on the disk to create the backup copy of the 
file, the L2 Editor issues the following message: 



I ERROR; Not enough room for backup! 



To mke enough space on the disk, either the Filer K(runch option (combines 
unused blocks at the end of the disk) must be used, or a file must be re- 
moved. Another disk could also be used. 

Once sufficient disk space is available to create the backup copy, the L2 
Editor displays the following message vhen executed: 



I Copying to <filenarae> .back. ! 
! >Edit: A(djst C(py D(lete F(ind I(nsrt J(np R(place Q(uit X(chng Z(ap ? 1 
I Reading. . . I 
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3.3.3 Differences In Ccrtmands 



Sane of the L2 Editor cotmands are slightly different than the same Screen- 
Oriented Editor cotinands. These differences are pointed out in the follow- 
ing subsections. 



J(irp (Junp Gonnand) 



The prorpt that appears in response to the initiation of a Junp comiand is 
the same for both editors. However, the B(eginning and E(nd refer to tlie 
beginning and end of the buffer in the L2 Editor rather than referring to 
the file beginning and end as in the Screen-Oriented Editor. 



F(ind (Find Ooimand) 



\Jhen a Find cannand is initiated, the L2 Editor displays "Finding...". If 
the pattern is not found in the contents of the buffer, the following prompt 
is displayed; 



I End of buffer encountered. Get more from disk?(y/n) 



If a Y for yes is entered, the L2 Editor moves another section of the file 
into the buffer and continues the search. Ihe direction of the search 
still depends on the direction set. 



S(et (Set Oomnand) 



The Set ccrmiand functions the same in the L2 Editor as in the Screen- 
Oriented Editor except that 20 msirkers are allowed instead of 10. Entering SM 
and SE cause the markers and the environment, respectively, to be set as in 
the Screen-Oriented Editor. However, the Environment status display con- 
tains some additional information for the L2 Editor. The following display 
shows the typical information diown in the Environment status display. 




j 

I 



A.(uto Ind 0 nt 
F( illing 



/^rN+- T /-n4“ V ' 



R(ight margin 
P(ara margin 
C(ctmiand eh 
S(et tabs 
T(dken def 

nnnn bytes used, nnnin available. 

There are n pages in the left stack, and m pages in 
the right stack. You have n pages of room, and at 
most n pages vyorth in the buffer. 

Markers: <P1 P2 >P3 

( ' < ' indicates the marker is in the left stack, ' > ' 
in the right stack, and no arrow indicates the marker 
is in the current buffer) 

Created rrmddyy; Last updated ntn yy dd( Revision n) . 



The S(et tabs option in the L2 Environmoit status display is accessed by typing 
an S \^hile the display is on the screen; the following prorpt appears. 



iSet tabs: < right, left, vectors > c(ol # N(o R(ight L(eft D(ecimal Stop <etx> I 



This option is not fully implemented; therefore, using R(ight, L(eft and 
D(ecimal has the same effect. That is, a variable tab stop is allowed 
rather than each tab being set eight characters apart. 



InoteI 



The environment information is not mutually 
ccrpatible between the Screen-Oriented Editor and 
the L2 Editor. Either may be used cn a file 
last ipdated by tlie other editor (subject to 
file size constraints); however, the environment 
information is reset to the default state. 
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Q(uit (Quit Gomriand) 



After all changes and additions are corpleted in the txiffer being edited 
using the L2 Editor, a Q is entered to end the editing session. This 
process is the same as with the Screen-Oriented Editor except that the 
W(rite option is not available in the L2 Editor. 

The other three cptions of the Q(uit cannand are slightly different than 
those of the Screen-Oriented Editor; these cptions are described below. 

U(pdate - Ihis option supplies additional information to indicate the 
file name and length. The information below is an exanple of the extra 
information given vhen a new file is created: 

Writing . * 

Ihe wDrkfile, X: FI. TEXT, is 73 blocks long. 

The backupfile is X: FI. BACK. 

Ihe recently edited file is <filename>.TEXT and the original file with 
no changes is <filenan:e>.BACK. 

E(xit - This option prevents the <filename>.BACK from being created. 

The existing backup file is removed. 

R(etum - This option is the same as the R(eturn option of the Screen- 
Oriented Editor except that the cursor returns to the last editing 
change made in the buffer being edited. 

3.3.4 L2 Additional Carmands 



The L2 Editor contains two cottinands that the Screen-Oriented Editor does not 
offer - the B(anish and N(ext commands. 
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B(3nisli (Bsnisli GcyrinfincS ) 



The B(anish cxarmand moves characters from the buffer into the stack to allov/ 
more roan in the buffer* This cormand is useful '/^en an overflow condition 
would occur in ccnpleting a large insertion or copy. The left and right 
stacks are behind and ahead of the cursor, respectively. The screen is the 
boundary for the operation. 

The B(anish ccmnand is initiated by typing a B; the following prompt line 
appears . 



I >Banish: Tb the L(eft or R(ight <esc> 



N(ext (Next Cormand) 



The Next ccmnand is used to move beyond the bounds of the buffer. This 
command is initiated by entering an N; the following prompt appears. 



I Next: F(orwards, B(ackv\ards in the file; S(tart, 

I E(nd of the file. <esc> 



\Vhen using an F or B, an inplicit banish occurs using the cursor as the 
point of reference. If F is entered, everything above the screen is 
banished to the left stack. More characters are added to the botton of the 
screen to extend the buffer in the forward direction. 

If B is entered, the characters below the cursor are banished to the right 
stack and the lower part of the screen becomes blank. More characters are 
added above the screen. 

The symbolic file is depicted below. 



I LEFT ST5\CK 

I 

! ST?^ 



I BUFFER 



1 RIGffT STACK | 

1 I 

I END I 
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"3 A T TNTi?=/^QTC’\rnir>n i-'’r\TfnrAD /v7\T,nv''^ 



T’Vi0 Ijxn0 — Ox‘i0ri'ti0Q x0xt EGitoir# YALOE^ is Qssi^nsci foir us0 in sy'st0ms 
having a teleprintar or teletypawriter as the systom console. This 
editor is useful for creating a QOTOXy procedure in the case vhere the 
CRT to he used with the s^ten is not ooipatible with the system as 
shipped. Because the screen editors are dependent on a correct GOTDXy 
procedure, YALDE is used to create the procedure. Once the QOTOXY pro- 
cedure is 'hound in and the SYSTEM. MISCINFO file created, the screen edit- 
ors can be used. 

YALOE provides facilities for the following actions: 

• Listing lines of text firora the work file (the file 
being created or modified). 

• Transferring text between the text twffer and files. 

• Relocating the cursor (the current position in the 
text being manipulated ) . 

• Inserting, deleting, replacing, and exchanging text. 

YALOE also provides a macro fecility, allowing the user to execute 
a frequently used group of oomiands by issuing a single cannand. 



3 . 4.1 General Information 



The YALOE Text Editor is designed for use in systems that have a tele- 
printer or teletypewriter as the system console rather than a video 
display terminal. YADOE must be executed from the system min oonmand 
line or else must be renamed SYSTEM. EDITOR. 

YALOE assums the existence of a work file but is not dependent on the 
work file being present. The work file can be created after entering YALDE. 
If a work file already exists, YALOE prints the following message. 



I Vforkfile STUFF read in. 



If YALOE is called and the work file is aipty, the following message 
appears ; 



I 

I 
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YMjOE operates in either Cortiriand or Text MDde and is in Ccrnnand Mode 
\A^en entered. In CcniTiand Mode, all keyboard input is assumed to be 
ccmmands. Each catmand may be terminated by <esc>. The acmnands may be 
strung together. No ocxTiTiands in a string (or singly) are executed until 
the final catinand in the string is followed by <esc> <esc>. Spaces, 
carriage returns and tabs within a comiand string are ignored unless they 
appear in a text string. When the execution of a ccrnnand string is contp- 
lete, YMjOE prompts for the next ccrnnand with an asterisk (*). In 
contrast to other levels of the III.0 Operating System, a prcrpt line of 
available ccmnands is not given. 

If an error is ^countered during ccrnnand execution, the ccmmand is ter- 
minated at that point without ocmpleting execution. 

Text rfode is eitered vhenever a ccrnnand is typed that must be followed 
by text. All succeeding characters are considered to be text until the 
next <esc>. The ccmnands that require text are F(ind, G(et, I(nsert, 
M(acro define, R(ead file, W(rite to file, and ^(change. 



Inote! 



When typed, <esc> echoes a dollar sign ($). Ihe 
<esc> terminates each text string and causes 
YALOE to reenter the Gatnnand Mode. A double 
<esc> terminates the ccrnnand string and causes 
YALOE to begin execution. 

The vork file is stored in the text buffer. This area is allocated 
dynamically by the ? ccrnnand. YALOE vorks only with files that fit 
ccnpletely within the text buffer. 

The cnrrsor is the position in the file vhere the next ccrnnand is to 
be executed. Most edit ccmnands function in relation to the cursor. 

Seme of the YALOE ccmnands described here require a ccrnnand argument 
to precede the ccrnnand letter. Usually, the argument specifies the 
number of times the ccrnnand should be performed or the particular 
portion of text to be affected by the ccrnnand. With seme ccmnands, 
the specifications are irrplicit and no argument is needed. The oan- 
mand arguments used by YALOE are as follows; 

n Any integer, signed or unsigned. Uhsigned integers are 
assumed to be positive. In a ccrnnand that accepts an 
argument, the absence of the argument implies 1 (only coe 
execution) or minus 1 if cnly the minus sign is present. 

m A nuriber in the range 0 through 9. 

o The beginning of the current line. 
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/ Ihe same as 32100 » A is -32700* Used for a large 

T^ 0 p 03 ^-h factor * 

= Represents -n v^ere n equals the length of the last text 
arguinent * implies only to the Og D ^ and C comands = 

3.4.2 Special Key Gcninands 



Various keys on the keyboard have special functions, seme of mien are 
unique to YALOE. These carmands are described belcw. Those control 
keys that do not appear below are ignored and discarded by YALDE. 



<esc> 



The escape key is echoed as a dollar sign ($) on the console. 
A single <esc> terminates a text string. A double <esc> 
executes a cormand string.. 



RUBOUT 

<linedel> 

On hard-copy terminals, line delete is echoed as "<ZAP“ and a 
carriage return. On others, it clears the current line on the 
screen. In both cases, the contents of that line are discarded 
by YALOE. 



CTRL H 
<chardel> 

On hard-copy terminals, character delete is echoed as a percent 
sign (%) followed by the character deleted. Deletions are right 
to left, with each character deleted, erased by the %, up to the 
beginning of the exarmand string. CIRL H may be used in both Gcm- 
mand and Text tfodes. 



CTRL X 



CTRL X causes YALOE to ignore the oitire cctmiand string and respond 
with a carriage return and an ^terisk (*) to prompt for another 
coimand. The catmand string being ignored may be an several lines. 
All lines back to the previous * prompt are ignored. (A character 
delete is confined to cxie line.) 
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CIRL O 



CTRL 0 causes YAIDE to switch to the optional character set (bit 7 
turned on) . This carmand argument applies only to the TERAK 8510A 
terminal . 



InoteI 



If stTcinge characters appear on the terminal, 
CRTL O may have been hit accidentally. This 
condition is corrected by again typing CTRL 0. 



CTRL F 
flush 



CTRL F causes YALOE to discard all output to the terminal until 
the next CTRL F is typed. 



CTRL S 
stop 

CTRL S causes YAIDE to store all output to the terminal until 
the next CTRL S is typed. 



3.4.3 Input/Output Commands 



The ocrrmands that control l/O are described below. 
LIST 



The LIST connand is specified by typing L for L(ist. This coirnand 
causes YALDE to print a specified number of lines on the terminal with- 
out moving the cursor. Variations of this command are explained below. 

*-3L$$ Prints all characters starting at the third preceding line 
and ending at the cursor. 

*5L$$ Prints all characters beginning at the cursor and terminating 
at the fifth carriage return (line). 

*0L$$ Prints from the beginning of the current line up to the cursor. 
VERIFY 

The VERIFY catmand is specified by typing V for V(erify. This command 
causes YALOE to print the current text line cn the terminal. The posi- 
tion of the cursor within the line has no effect on the command, and the 
cursor is not moved. No arguments are used. VERIFY is equivalent in 
effect to a *0L$$ list command. 
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WRITE 



The WRITE carmand is specified tv typing W for W(rite followed fcy the 
file title, in the following format; 

*W<file title>$ 

The file title is any legal file title, except that the file type is 
not given. YMjOE autonatically appends ".TEXT" as a suffix unless 
the title ends with a "]", or ".TEXT". If the title ends in a 

the period is stripped from it. 

The WRITE cannand writes the entire text buffer to a file having the 
given file title. The cursor is not moved, nor are the contents of 
the text file altered. If the volume specified by the file title has 
insufficient roan for the text buffer, the follcwing error message 
appears: 



1 OUTHJr mROR, HELPl 



The text buffer can be written to another volume. 



READ 

The READ ccnmand is specified ty typing R for R(ead followed by the 
file title, in the following format; 

*R<file title>$ 

YALDE attenpts to locate the file title as given. If no file is found 
having that title, a ".TEXT" is appended and a new search is made. 

The READ cannand inserts the specified file into the text buffer, 
starting at the location of the cursor. If the file read does not 
fit, the aitire text buffer is undefined in content. This situation 
is an unrecoverable error. 

QUIT 



The QUIT cannand is specified by typing Q for Q(uit and has several 
forms, as follows; 

01 QaLt and update by writing out a new SYSTEM. WRK. TEXT. 

QE Quit and escape YALDE; do not alter the work file. 

QR Do not quit; return to YALOE. 

If Q is typed alone, a prorpt is sent to the terminal giving the above 

» rui iiiuoL. Js^ csLiuc;i.oa kjjl L\J • 
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The QU cotimnd is a special case of the WRITE conmand. If QU does not 
work, W can be used to write out SYSTEM. WRK. TEXT followed by QE to exit 
fron YALDE. ® is used to return to YALDE after a Q has been typed 
accidentally. 



ERASE 

The EEIASE carmand is specified by typing E for E(rase. This cotmand 
functions only with video display terminals and causes YALOE to erase 
the screen. 



The O cotmand is specified by typing O. This conmand functions only 
with video display terminals and causes YALOE to display the text around 
the cursor each time the cursor is moved. The argument for the O con- 
mand specifies the number of lines to be displayed. This option is in 
a disabled state vhen YALOE is entered. If needed, the cption must 
be enabled by using the O cotmand. A second O disables the cption. 

The location of the cursor is denoted by a split in the line of text. 

3.4.4 Moving Gotmands 



The moving cormands relocate the cursor to a new position. These cotmands are 
inportant because most other editing oatmands are dependent on cursor position- 
ing. The moving cormands are described below. 

The direction of cursor movement is specified in the cormands by the sign of 
the argument. A positive (+n) argument gives the number of characters or 
lines to move in a fiorv^d direction; and a negative argument (-n), in a 
backwards direction. 

Carriage return characters are treated the same as any other character in 
text except that the <cr> denotes the end of a line of text. 

Examples of the moving cormands are given in Figure 3-9. In the examples, 
the cursor position is indicated by an ip arrow (^) although the cursor 
does not actually appear on the telepri.nter or teletypewriter. 

JUMP 



The JUMP carmand is specified by typing J for J(urp. JUMP moves the 
cursor a specified number of characters in the text buffer. Move- 
ment rray be either fiorvard or backward and is rot restricted to the 
current line. 
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ADl^J^CE 



The AD^5^^1CE cannand is specified by typing A for A(dvance. AD\^y^CE 
moves the cursor a specified number of lines. The cursor is then 
positioned at the beginning of the line to which it moved. Im argu- 
ment of zero moves the cursor to the beginning of the current line. 
Movement may be either forward or backward. 



{Here are the original lines and the cursor position.} 
THE TIME ms OOME<cr> 

THE WALRUS SAID<cr>Q 



TO TALK OF MANY THINGS <cr> 



Exanple 1. *8J$$ moves the cursor forw^d eight characters to the next line 

bet\/\^en the K and the space. 

TO TALK OF MANY THINGS <cr> 

Example 2. *-2A$$ moves the cursor to the beginning of the second preceding 

line. 

THE TIME HAS OOME<cr> 



Exairple 3. *BGTWINE$=ir$$ moves the cursor to the beginning of the text buf- 
fer, then starts searching for the string "TWINE". When the 
string is found, the cursor is positioned imnediately before it. 



Figure 3-9. Exairple of Moving Carmands. 



BEGINNING 

The BEGINNING cannand is specified by typing a B for B(eginning. BE- 
GINNING moves the cursor to the beginning of the text buffer. 

GET and FIND 

The search connands GET and FIND are synonymous. GET is specified by 
typing G and FIND by typing F. With either cannand, the current text 
buffer is searched starting firom the location of the cursor for the 
nth occurrence of a specified text string. On corpletion of a success- 
ful search, the cursor is positioned immediately following the nth occur- 
rence if n is positive and imnediately before, if n is negative. Tf 
the search is unsuccessful, YALDE generates an error message, and the 
cursor is positioned at the end of the buffer if n is positive and at 
the beginning if n is negative. 
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3.4.5 Text Qianging Ccmnands 



The text-changing ccmmands add to, remove, or change the text. Ihese cotmands 
are described in the fiollCMing paragrapSis; exanples are given in Figure 3-10. 

INSERT 

The INSERT ccmmand is specified by typing I for I(nsert. INSERT causes 
YALOE to alter Text Mode to add characters inmediately following the 
cursor until an <esc> is typed. After insertion is ocmpleted, the cursor 
is positioned irrmediately fol lowing the last character inserted. 

Occasionally, with a large insertion, the temporary buffer becomes full. 
Before this situation occurs, the following message is printed on the 
console. 



I Please finish. 



Typing <esc> <esc> terminates the insertion at that point so that the 
tarporary buffer can be emptied into the text buffer. Insertion can 
then be continued by again t^ing I to reenter Text Mode. Not typing 
I causes the characters that are next entered as insertions to be inter- 
preted as oommands. 



*-4D$$ Deletes the four characters immediately preceding the 

cursor, even if they are on the previous line. 

*B$GTWINE Moves the cursor to the beginning of the text buffer, 

searches for the string "TWINE", and deletes it. 

*/K$$ Deletes all lines in the text buffer from the line in 

vhich the cursor is positioned to the end of the buffer. 

*OGAAA$$ Replaces the characters from the beginning of the line 

to the cursor with "AAA." (same as *OX?\AA$$). 

*B3A$=<B$$ Searches for the first occurrence of "A" and replaces 

it with "B". 

*-3XNEW$$ Exchanges all characters beginning with the first char- 

acter CXI the third line back and ending at the cursor 
with the string "NEW". 

Figure 3-10. Exanples of Text-Changing Ccnmands. 
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DELETE 



The DELETE cotmand is specified by typing D for D(elete, lELETE TfgmQveS 
a specified number of characters from the text buffer, starting with the 
position of the cursor* On corpletion of the deletion, the cursor is 
positioned innmediately follcwing the deleted text. 



KELL 



The KELL cormand is specified ty typing K for K(ill. KILL deletes a 
specified number of lines fran the text buffer starting at the position 
of the cursor. On corpletion, the cursor is positioned at the beginning 
of the line fnl lowing the deleted text. 

CHANGE 

The CHANGE comiand is specified ty typing C for C(hange. CHANGE replaces 
n characters, starting at the position of the cursor, with the given 
text string. Oi corpletion, the cairsor is positioned immediately follow- 
ing the changed text. 

EXCHANGE 

The EJOiANGE ccninand is specified by typing X for ^(change. EX- 
CHANCS exchanges n lines, starting with the line on v\hich the cursor 
is located, with the indicated text string. The cursor reanains at 
the end of the changed text on ccnpletion of the ocnmand. 



3.4.6 Miscellaneous Oonmands 



Seine ISOLDE cenmands do not fall into a category but are miscellaneous ccriTnands 
for various purposes. These cannands are described in the following paragraphs. 

SAVE 



The SAVE comnand is specified ty typing S for S(ave. SAVE copies 
the specified number of lines into the save buffer, starting at the 
cursor. Ch coipletion, the cursor position is unchanged, and the 
contents of the text buffer are unaltered. Each time SAVE is exe- 
cuted, the previous contents of the save buffer, if any, are destroy- 
ed. If executing a SAVE will cause the text buffer to overflow, YALDE 
generates a message and does not perform SAVE. 
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UNSAVE 



The USfSAVE catnnand is specified ty typing U for U(nsave. LNSAVE 
inserts the aitire contents of the save buffer into the text buffer 
at the cursor. On carpi etion, the cursor is still positioned before 
the inserted text. If the text Ixiffer does not have enough roan for 
the contents of the save buffer, "iJALDE generates a message bo this 
effect and does rot execute UNSAVE. 

The save buffer may be removed by typing OU. 



MACRO 



A macro is a single cormand that performs a string of standard but 
related cotinands. Any group of frequently used cannands can be group- 
ed into a macro to eliminate the need for having to write the vsihole 
set of instructions v\^enever they are needed. The user may create 
macros by using the M(acro caiinand. The MACRO cotmand is specified by 
typing M for M(acro in the fbl lowing format: 

nM%ccrrinand string% 

In this format, m is an integer in the range 0 through 9. MACRO is 
used to define a mximum of ten macros. The default number is 1. 

The camnand string is stored in the mcro buffer m. The oarmand 
string delimiter (% in the above case) is al\Aays tlie first character 
following the M. The delimiter may be any character that does not 
appear in the macro oarmand string itself. The second occurrence of 
the delimiter terminates the macro. 

All characters except the delimiter are legal itacro oarmand string char- 
acters, including a single <esc>. All YALOE cormands are legal. An 
example of a macro is given in Figure 3-11. 

If an error occurs vhen defining a macro, the following error message 
is generated: 



I Error in macro definition. 



The mcro must be redefined. 
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*4M%FHIEFACE$=CEND PE^ACE$V$%$$ 

This exaiple defines mcro raittoer 4. Mien mcro 4 is 
executed, YALOE lool^ for the string "PREFACE", changes 
it to "END PREFACE", and then displays the change to 
verify it. 



Figure 3-11. Exarrple of a Macro. 



N (Execute Macro) 

The N carmand, Miich executes a specified macro coimand string, 
is specified by N in the following format; 

nlShi$ 

The n is sdjiply any coimand argument (for example, a repeat factor), 
and m is the macro number to be executed. If m is emitted, one is 
assumed. Because m is technically a coimand text string, the N cem- 
mand must be terminated by <esc> (echoed as $). 

Attenpts to execute undefined macros result in the generation of the 
following error message: 



I Unhappy maenum. 



Errors encountered during macro execution generate the ficllowing error 
message. 



I Error in mcro. 



? (List) 



The ? oenmand is 
of all ooimands, 
the memory still 



specified by typing ?; this carmand prints a list 
the sizes of the text buffer, the save buffer, and 
available for expansion. 
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4. 



TEIE FILE f^^LER (FILER) 



The File Handler (Filer) is a separate caipartment of the III.0 Operating 
Syston v^ch handles, identifies, struc±ures, and restructures files used 
on the system. The Filer offers ccrtinands that provide mans to keep track 
of files, to irenipulate files, and to maintain files and diskettes/disks. 

That is, the Filer oamiands can be generally categorized. These categories 
are (1) information cotmands to provide lists of files and volumes; (2) man- 
ipulative oannands to handle the system work file; and (3) disk and file 
maintenance ccmraands to allov the foliating operations; 

• Mbving files and directories. 

• Copying files and volumes. 

• Creating files, changing file names, and removing files. 

• Qiecking disks/diskettes for corrupted or damged areas. 

• Creating new directories so that information can be recorded. 

• Changing the system date so that i:pdated files reflect a current date. 

• Changing the default volume on the system. 

Refer to Section 1.3.2 for a brief description of the Filer ccmnands. This 
chapter contains a detailed explanation of the Filer camands in Section 4.2. 
Section 4.1 presents seme general information regarding the Filer — namely, 
accessing the Filer (4.1.1); Files, Volumes and File Specifications (4.1.2); 
and the Filer Ccftniand Categories (4.1.3). 
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4. 1 GENERAL INFORMATION 



Generally, the Filer nmiipulates and maintains files, v\hich are the basic unit 
of permanent storage used with the III.0 Operating System. Seme Filer functions 
relate to files stored on disks/diskettes; other functions relate to unblocked 
device files such as a printer or console file. 



4.1.1 Accessing the Filer 



The Filer is accessed by typing F (for F(iler) from the system outer level aannand 
line. In response to the F, the following Filer main catrmand line is displayed 
across the top of the screen. 



I Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit I 



This connand line lists seme of the Filer conmands; to display the secondary 
Filer cctnnand line, a ? is entered. Ihe secondary cormand line is ^own below: 



I Filer: B(ad-blk, E(xt-dir, K(runch, M(ake, P(refix, V(ols, X(amine, Z(ero 



The cemnands listed in the secondary ccmiiand line can be accessed directly frem 
the Filer main aaTmand line by typing the first character of the cemmand or 
can be accessed from the secondary cenmand line after it is displayed in res- 
ponse to the entry of a ?. 

All Filer canriands are initiated by typing the first character of the 
cormand on the console. Many of the cemmands display additional prompt 
lines in order to have the information necessary for execution. Answering a 
"Yes/No" question cxi a protipt line with any character other than a Y or y 
constitutes a No ansvyer. In most cases, typing an <esc> returns control to 
the Filer main cormand line. 



4.1.2 Files, Volumes, and File Specifications 



Refer to Section 2.1 for an explanation of files and to Section 2.2 for an 
explanation of volumes. These subjects are inportant to understand 
regarding the Filer. 
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Another inportant subject in regarxis to the Filer is that of file specifi- 
cations. ^feny Filer ccmmands require a file specification. Figure 4-1 
illustrates the syntax of a file specification. 







vctimz IV 



^ unitnumber 






Figure 4-1. Syntax for a File Specification. 



Whenever a file name is requested, as many files as desired may be listed. 

The file names must be separated ty oamas, and the list must be terminated with 
a carriage return (<ret>). Ooitinands that operate cxi single file names continue 
reading the names from the list and operate an each until no names remain. 0cm- 
nends that operate on two file names at cxice (for example, CHANGE and TEy\NSFER) 
ocxitinue reading names in pairs until one or no file names remain. If only 
one file name remains in the above case, the Filer prompts for the second name. 
If an error is found in the list, the entire list is flushed. The rules for 
legal file names are listed in Section 2.1. 

Ihe Filer performs the requested action cxi all files meeting the file specif- 
ications. Seme specifications are made by using wild card characters. Ihe wild 
card characters "=" and "?" specify a siibset of a directory. For example, a 
file specification that contains "PUB=TEXT‘’ as a string to specify a subset 
causes the Filer to perform the requested action on all files vhose names be- 
gin with the string "PUB" and end with the string "TE5C". 
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If a ? is used in place of the =, the Filer requests verification before per- 
forming the requested action. Generally, the ? causes the Filer to request 
verification before completing any command. Ifeing the ? alone causes the Fi- 
ler to act cai every file in a volume directory and to request verification fiDr 
each file before completing the canmand for that file. For example, the ? can 
be used in file transferring from oie media (or diskette) to another to prcnpt 
the user regarding the transfer of each file. 

In using wild card characters, either or both strings may be empty. For ex- 
airple, a subset specification "=<string" or '*<string>=" or even "=" is valid. 
In the case v\here both strings are arpty, the Filer acts on every file in the 
volume directory. 

In seme contexts, the pattern '[number]' at the end of a file name is inter- 
preted as a block size specification and is not part of the actual file name. 



4.1.3 Filer Gamiand Categories 



The Filer oetTmands can be groiped into three min categories as follows: 

# Information Gemmands 

# lyfenipulative Commands for the System Work File 

# File/Disk Maintenance Commands 

These categories group the cemmands by general function. A list of the ocm- 
mands in each group is presented in Table 4-1. 



Table 4-1. Filer Commands By Category. 



Information 



Work File Manipulation File/Disk Maintenance 



L(dir 

E(xt-dir 

V(ols 



G(et R(em K(runch 

S(ave C(hng M(ake 

W(hat T(rans P( refix 

N(ew D(ate X(amine 

B ( ad-blks Z ( ero 



Page 4-5 





THIS PAGE IS INTENriONALLY LEFT BIANK FOR Fd^MATTING PURPOSES. 



Page 4-6 




4.2 FILER CCMMANDS 



AT 4“l’'V^l VT*h 4“T^^ 1 /■‘V^intTliarv^Q ft lor’^i *1 ■Pii»-w^+- n /-w%ia 1 4-V^/-\ 

* '«— ■ * w J. .k. X^N.AiAb«L4.L.D^l3 V.^ d l X *-^V^ -A.JL i J. V4L iidjL Vj^L-O^V^JL / Ui. 

descriptions of the catmands presented in this section are ordered based 
on their placement in the Filer inain and secondary counand lines • Ihe con*” 
mands listed on the main oannand line are presented first (in left to right 
order as they appear on the protpt line) . Ihen, the secondary aanriands are 
described based on their order in the secondary prompt line. 



4.2.1 G(et (Get Gonmand) 



The Get cctrmand is used to load a specified file into the wDrk area as the wDrk 
file. Ihe Get ccrrmand is initiated by typing G frcm the Filer main ccrnnand 
line. If no files named SYSTEM. WRK. TEXT or SYSTEM. WRK.CDDE exist in the dir- 
ectory, the Filer responds with the following prortpt: 



I Get \^ihat file? 



If either or both the syston work files exist, the Eller asks the following ques- 
tion; 



I Throw away current workfile? 



If the response is yes, that file (or files) is removed frcm the disk. If the 
response is other than yes, the Get cctniiand action is aborted and the Filer 
main command line reappears. 

In response to the first prorpt, the file name entered is loaded as the work file. 
The suffixes .TEXT and .CDi:i; are not required. If a text and code file exist 
for the file name entered, both are loaded. If one or the other type of file 
exists, that file is entered although neither .TEXT nor .CDEE were specified. 

Mso, the entire file specification is not required. If the volume ID or name 
is not given, the default disk is assumed. Wild card characters are not allow- 
ed, and the size specification is ignored. 

V'Then the Filer completes the loading operation, caie of the following messages 
is printed — depending on the files that exist on the disk. 

• Text and code file loaded. 

• Code file loaded. 

• Text file loaded. 
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If no file exists with the specified name, the Filer responds; 



i No file loaded. 



An example of the Get cannand is presented in Figure 4-2. In the figure, the 
characters entered ty the user are shaded; carments are enclosed in braces ( { } ) . 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

m 

Get vvhat file? #5:K^ 

{Two files named P0P.TE5CT and POP.CXDEE exist on device #5.} 

Text and code file loaded. 

Figure 4-2. Get Gortinand Exaitple. 



4.2.2 S(ave (Save Cjonnand) 



The Save aarinand is used to save (write to disk) the wDrk file. Both ccmpo- 
nents ( SYSTEM. WRK. TEXT and SYSTEM.V®K.(XDE) of the work file are saved 
( 1 ) under the original file name if a Get cotmand v^s used or ( 2 ) under a 
different file name as specified by the user. The Save cannand is initiated 
by typing S from the Filer main cannand line. 

If the vork file was created by the Get oonmand, the Filer prcrrpts as belcw; 



I Save as <file name>? 



If a yes response is given and the file already exists, the Filer prompts; 



I <file name> exists ... remove it? 



If a yes response is entered, and the original file is located on other than the 
default volnne, the following message appears; 



I<vol ID>: SYSTEM. WRK. TEXT transferred to <file name> 
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In this case, the SYSTEM. V?RK. TEXT (or .CDDE) file remains on the system volume 
until the wark file is cleared. Ihe wark file can be cleared by a Get or New 
ccmriand • 

If the original file is on the system disk or default volume, the message re- 
garding transferring the file does not. appear. Ihe original file is ipdated if 
the wark file is saved with the name of the original file. In this case, the 
" SYSTEM. WRK" files disappear >hen the Save ccmmand is used to write the wark 
file to the original file name or to a new file name. 

The suffixes ".TEXT" and "CDIE" are not required ^^hen using the Save ccmnand. 
The III.0 Cperating Systen automatically appends to correct suffix. 

If the volume name is not specified, the default volume is assumed. Wild cards 
are not allowed, and the size specification does not apply. 

Figures 4-3 and 4-4 give examples of the Save ccmmand. Ocmraents are oiclosed 
in braces ({}), and user input is shaded. 



Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(en, C(hng, T(rans, D(ate, Q(uit 



Get \^at file? SFWi:l!EST <ret> 
Text and CJode file loaded. 

Q 



{Through the above sequence of cctnnands, the file "TEST" on. the volume 
named "SFWl" is made the work file. This file has a code file assoc- 
iated with it. After the Editor is used to load the file into marory 
and to make changes to the file and the code is recompiled using 
the Run ccmraand, the file is to be saved as "TESTl". The following 
sequence of caimands is used to save the work files.} 

Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(an, C(hng, T(rans, D(ate, Q(uit 
S 

Save as SFWl: TEST? 

Save as vhat file? 



SYSl: SYSTEM. WRK. TEXT transferred to SBWl; TESTl. TEXT 

SYSl: SYSTEM. WRK.QOEE transferred to SFWl; TESTl. <X)EE 

{The ipdated versions of the file are, thus, transferred to the volume 
"SFWl". The "SYSTEM. WRK" and "SYSTEM. CODE" files remain on the default 
volume until the work space is cleared.) 

Figure 4-3. Example of the Save Ccmnand Across Volumes. 



SgWXsTBSTl <ret> 
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Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(era, C(hng, T(rans, D(ate, Q(uit 

{a text file is created using the Screen-Oriented Editor, and the work file 
is ipdated using the U option of the Editor Q(uit oararnand. Ihus, the file 
is written on the default volime as SYSTEM. WRK. TEXT. The vork file is 
tenporary and, at that point, the work file is not saved. Ihe fiollcwing 
sequence of connands saves the file as PLAY. TEXT on the default volume and, 
at the same time, removes the SYSTEM. WRK. TEXT file.} 



S 

Save as \Ahat file? HAY <w^> 

TEXT file saved 

Figure 4-4, Exanple of Save Command With SYSTEM. WRK File. 



4.2.3 W(hat (What Oonmand) 



The What carmand displays the name and status (saved or not saved) of the current 
work file. This ccmraand is initiated by typing W from the Filer main cannand 
line. 

If SYSTEM. WRK. TEXT and/or SYSTEM. WRK. CDre exist on the default volume but a Get 
command was not used to create a named work file, the following response to a 
What ccrnnand appears. 



I Workfile is not named (not saved) 



However, if the Get corraarKi is used to load a named work file (for exanple, 

SFWl : PLAY. TEXT ) , and the file is edited and updated but not saved, the response 
to the What oatmand is as follows. 



I Workfile is SE\'71:PIAY (not saved) 



If neither named nor unnamed work files are present, the following response to 
the What carmand appears. 



I No wDrkfile 
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4.2.4 N( 0 iV (New Oannand) 



* ^ .T £sa>^e* S v*\/r‘^.T r.^^v^Ty -Pi ”T /rs /^ran -4“ 

Xll^ XX^W ^^JIIELIMJXI S^JLCCaL O OKJ O i.l'CW jlx.j.^ vJdix Wn..^vx « XXIS^ 

New cxjimand ranoves any WDrk files on the system volume so that no default 
file exists to he used autcmatically the E(dit, C(c2Tipile, or R(un cGniriands. 
All versions of the work file ( SYSTEM. WRK. TEXT and/or SYSTEM .WRK.COEE) are 
removed fron the s^^^tan directory by the New canraand. 

Ihe New ccramand is initiated by typing N frcm the Filer main caimand line. 

If a system wark file exists at the time a New caimand is executed, the follow- 
ing prompt appears: 



! Throw away current workfile? 



If a Y is entered, the work space is cleared. If an N is altered, the main 
ccnmand line of the Filer is redisplayed. 

If a backup work file exists (as created v^hen the L2 Editor is used to create 
the work file), the following praipt appears: 



I Remove <workfile name>.Back? 



4.2.5 L(dir (List Directory Cbrnmand) 



The List Directory ccnmand gives information pertaining to the specified direc- 
tory of a selected disk/diskette volume. All or part of the directory is dis- 
played (default destination is OCNSOIE; ) as specified. The List Directory com- 
mand is initiated ty typing L frcm the Filer min command line. The following 
pronpt appears: 



I Dir listing of v^hat vol ? 



The directory can be listed to the volume and file specified. The default vol- 
ume is “CONSOLE;", but the listing can be directed to a file on disk, "PRINT- 
ER;", or "REJVKDTE;". The file specification, in this case, must be in terras of 
source and destination. 
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The source file specification consists of a mandatory volume name v\here 
indicates the prefixed volLffne and an optional file nan^, \«^ich may include sub- 
set-speci:fying strings. If subset-speci:fying strings are used, a wild card is 
used. Ihe source information must be separated frcm the destination information 
(if given) by a ccmna. 

When entered, the destination specification includes the volume name and, if 
the volume is block-structured, a file nante. The file size is ignored. 

Usually, this oonnand is used to list the entire directory. The directory 
listing that appears csn the screen fills the screen, stops, and prompts as be- 
Icw to continue viewing the listing. 



I Type < space > to continue 



When the space bar is pressed, the next screen of information is displayed until 
the directory list is cotpleted. The directory is limited to 77 file oitries. 
(See 2.2 regarding this limitation.) 

Figures 4-5 and 4-6 give examples of the L(dir ocrmiand. Figure 4-5 presents an 
example of this oaimand as used to print the directory on a serial printer. 
Figure 4-6 shows a directory listed by this ccrtinand to the console. Gaments 
are enclosed in braces ( { } ) ; user input is ^aded . 



Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 
L 

Dir listing of ^hat vol? <r^> 

{This specification causes tlie directory for the system diskette to be 
printed on the serial printer} 

Figure 4-5. Exanple of List Directory Oommand (List to Serial Printer). 
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Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(an, C{hng, T(rans, D(ate, Q(uit 
L 

Dir listing of v^hat vol? M 

{The follcwing directory of the system diskette is displayed on the screen; 
the volume name is H30S. } 



Type <space> to 


ccxitinue 


H30S: 


SYSTEM. COMPILER 


79 


4-Feb-82 


LIBRARY. CODE 


23 


4-Feb-82 


DISASM.COra] 


24 


4-Feb-82 


SYSTEM. LINKER 


27 


25-Feb-82 


SYSTEM. MISCINFO 


1 


8-Mar-82 


BINDER, cora; 


8 


4-Mar-82 


LIBMAP.COEE 


9 


4— Feb— 82 


SYSTEM. EDITOR 


52 


29^ul-81 


ADV.EDITCR 


79 


23-Mar-82 


CCNFIGURE.COCE 


25 


25-Mar-82 


WPCRMAT.COEE 


18 


24Hyiar-82 


MARKDUPDIR.COCE 


5 


23-Mar-82 


COFYDUPDIR.COEE 


5 


23-Mar-82 


BOOTER.COEE 


5 


23-Mar-82 


SETUP. COR 


39 


31-Mar-82 


PATCH. CODE 


8 


2-Apr-82 


SYSTEM. LIBRARY 


30 


7-r?^r-82 


COPY. CODE 


5 


25H^r-82 


SYSTEM. PACAL 


110 


25-Mar-82 


SYSTEM. FILER 


48 


19-Apr-82 


FORMAT. COIR 


14 


2-Apr-82 


BOOTMAKE.COEE 


7 


2-P^r-82 



<SpeMCse> {After the space bar is pressed, the fbllcwing information is 
displayed. } 



H30S; 

BOOT. CODE 10 2-Apr-82 

23/23 files < listed/ in-dir>, 632 blocks used, 346 unused 



Figure 4-6. Exairple of List Directory Oannand (List to Console). 



In Figure 4-6, the file names are listed that are contained in the directory 
for H30S (column one) . Column tvyo gives the number of blocks in the file; 
column three is the date the file v«.s last written. This date could be the 
creation date, if the file has not been "written to” since that date. This 
date is changed each time the file is written; the date is based on the date 
set through the Filer Date carmand. 
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The bDttcxn line of the directory listing i^ows how many file names are ^own 
and the total of the file names in the directory. In the exarrple, 23 file 
names are listed out of a total of 23 file names in the directory, ffowever, 
if a subset-specifying string, for example, "#4:SYSTHyi.=", had been entered, 
seven out of 23 files would be ^own (7/23). Of the total blocks on the 
diskette, 632 blocks are used and 346 remain available for use. 



4.2.6 R(em (Remove Cotmand) 



The Remove corinand is used to remove file names from the disk directory, leav- 
ing the space formerly occupied by the file marked as unused. This ccmraand 
changes the directory; the information in the removed file still resides on 
the disk/diskette . Bfcwever, once the file name is removed frcra the directory, 
the file information is no longer accessible to the user. The III.0 Operating 
System new considers the area of the disk on which the file is written to be 
free space. Other files may now write to that space. 

The Remove cemmand is executed by typing R frem the Filer min cerrmand line. 
The follcwing protrpt appears in response to this cemmand. 



I Remove vhat file? 



The Remove cemmand requires one file specification for a file to be removed. 
The following rules apply in response to this prortpt. 

• The volume name or device niniber is required unless the file 
resides on the default disk. A colon is required to separate the 
volume identification frem the file name. For example, 
SFWlxtestl.COEE, vhere "SFW:" is the volume identification and 
"testl.GOEE" is the file name. 

• The file name extension is required. That is, the ".TEXT" or 
" .CDEE" suffix must be included as part of the file name. 

• Wild cards are permitted as described belcw: 

- A file name consisting of a single letter fbllcwed by an equal 

sign (=) instructs the Filer to remove all files beginning with that 
letter. The equal sign my also be used to remove groups of files 
with cannon letters either at the beginning or aid of the file name. 

- A file name that consists solely of an equal sign causes every 
file in the directory to be removed. 

- The use of a question mark (?) causes a proirpt for confirmation to 
appear before each file is removed. The question mrk my be 
substituted in either of the above wild card specifications. 

A list of files my be removed by entering the file names separated toy canmas. 
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Ihe Filer prorrpts for cxDnfimiation v^hether or not to remove the file name fran 
the directory? the pronpt is showi below. 



I U^ate directory? 



A Y or y response causes the Filer to remove the file from the directory; any 
other response leaves the directory in its original state. In either case, the 
execution of the Remove contiand is corplete, and the Filer min connand line is 
redisplayed . 



InoteI 



The Remove connand ^ould NOT be used to remove 
the SYSTEM. WRK. TEXT or SYSTEM.WRK.CDrai files. 

These files ^ould cxily be removed through the 
New or Get ccmnands. 

Because the "SYSITM.WRK'' files are referenced in 
an operating systan table, even if the files are 
raiKDved ty the R(emove ccrnnand, the III.0 
Operating System still lists the files as being 
present. This situation provides error messages 
such as "Vforkfile lost". 

Figures 4-7, 4-^, and 4-9, give exairples of the Remove canrand. Figure 4-7 
illustrates the question mark to cause prompting for each removal; Figure 
4-8 illustrates the use of the wild card equal sign? and Figure 4-9 illus- 
trates ranoval of multiple files separated fcy ccmnas. Ocmnents are enclosed 
in braces ( { } ) ? user input is shaded . 
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Filer: G(et, S(ave, V'7(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{The following oantiands and responses remove all files that begin witli an 
"a" as selected by the user. Ihe ? is used to cause the filer to pranpt 
for each file to be removed.} 



R 

Remove vhat file? QSTGSra? <ret> 
Remove ASDIOE? K 
Remove ASDIOE. MASK? S 
Remove APUNIT.COEE? N 
Remove ABC . TEST. TEXT? S 
Remove ALPHA. TEXT? Y 
Remove ADDS. TEXT? Y 
Update directory? Y 



Figure 4-7. Ranove Garmand Exanple Using Wild Card (?). 



In Figure 4-7, the user confirms or denies the removal of file names that begin 
with an "A". After Y is entered in response to the "Update directory?" prorrpt, 
the Filer main ccmmand line reappears. 
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Filer; G(et, S(ave, Wiat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{The fellowing oonriarKas and responses rsnove all files w^iich h^gin with 
"NEW" and all files vhich end with "TEST". Ihe ec^al sign is used as a 
wild card to effect the ranovals.} 

H 

Remove v\hat file? CJ6TGSsi®#»<l?et> 

QSTGS : new/ TESTl . TEXT removed 

QSTGS ; NEW/TEST2 . TEXT removed 

QSTCS; new/tests. TEXT removed 

U^ate directory? Y 



{The Filer main carmand 
Filer; G(et, S(ave, W(hat, 



line reappears after the directory update.} 
N(ew, L(dir, R(em, CChng, T(rans, D(ate, Q(uit 



R 

Remove vhat file? QSTC2S:=.TBST.'IEXr <ret> 
QSTGS: BCD. TEST. TEXT removed 

QSTGS: CEE. TEST. TEXT removed 

Update directory? ¥ 



Figure 4-8. Remove Command Examples Using Wild Card (=). 



Figure 4-8 above illustrates the removal of file names that have cannon begin- 
ning or aiding nodes by using the equal sign as a wild card. 
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Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(an, C(hng, T(rans, D(ate, Q(uit 
{The following cxantiands and responses remove a series of three files.} 



ill 

Remove vhat file? 
QSTGS:HDW2.TEXT 
Update directory? 
QSTGSrSFWl.TEXT 
Update directory? 
QSTGS;SFW2.TEXr? 
Update directory? 



removed 



y 

y 

Y 



removed 

removed 



Figure 4-9. Remove Corrmand Exaiiple - File Sequence. 



4.2.7 C(hng (Qiange Gamiand) 



The Change aomnand changes a file name or volume name. This carmand is init- 
iated fcy typing C from the Filer main carmand line. After typing C, the Filer 
prompts for the file to be changed as i^own below. 



I Change \«hat file? 



This oonmand requires two file specifications; (1) the file or volume name to 
be changed and (2) the new name. These specifications nay be entered on one 
line in response to the prorrpt separated by a cornma, or they may be entered 
on two lines witli a return (<ret>) separating the first from the second. In 
the case vhere the specifications are separated by a <ret>, the following second 
prarpt appears. 



I Change to vhat? 



Any volume name or device number in the second specification is ignored because 
the Filer recognizes that the file is on the same volume (or is the same volume, 
when the volume name is changed) . The size specification, if given, if also 
ignored . 

Wild card specifications are permitted. That is, the portion of the original 
file name represented by the equal sign is duplicated in place of the equal 
sign in the new file name. If a wild card is used in the first specification, 
it must also be used in the second. 

Any SLbset-specifying strings used in the first specification are replaced by 
the anaruogous strings (replacement strings) in the second. That is, string 
clmracters inay be placed before or after the equal sign, or both, in the first 
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or second file specification. If the equal sign is used alone as a subset- 
speci:fying string (both strings are empty) / the Filer considers the specific- 
ation to apply to all files in the directory. 

Ihe file name suffixes ".TEXT" and ".OODE" must be given as part of the file 
specification. Also, the Filer does not change any name if the new name ex- 
ceeds 15 characters in length. V/hen using a subset— speci:fying string to change 
the names of a group of files, if one of the new file names will exceed 15 
characters, that file name is not changed. If all the new file names will ex- 
ceed 15 characters, none of the changes are made. 

To change a volume name, the volume name followed by a colon must be specified 
for both the old and new names. No reference to files in the directory should 
be made. 

Figures 4-10, 4-11, 4-12 and 4-13 give examples of the Qiange conmand. Figure 
4-10 illustrates the separation of the file specifications by a <ret>; Figure 
4-11 and 4-12 give exarrples of wild card s^ifications? and Figure 4-13 is an 
example of a volume name change. In the figures, ccrrments are enclosed in 
braces ({}), and user input is ^aded. 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(€m, C(hng, T(rans, D(ate, Q(uit 



ft: 

Change what file? Q5TGS;0iasfK.TEXT <ret> 

Change to vhat? HAY.1EXP 

QSTGS: JUNK. TEXT changed to PLAY. TEXT 



{The above ocmmand and responses effect the file name change. 
The volume name is not repeated because the file is assumed 
to be on the same volume.} 



Figure 4-10. Two-Line File N^e Oiange. 
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Filer: G(et, S(ave, W(hat, N(ew, L(dir, R{qti, C(hng, T(rans, D(ate, Q(uit 



{An exanple using a wild card specification is given below. Hie connands 
and responses below show the change of three file names. The wild card 
specifications change the subgroups of files that begin with "SEW" and end 
in "XT" to file names beginning with "OLDSW and ending in "XT". Ihe or- 
iginal file names in the directory are: SEWl. TEXT, SEW2. TEXT, HDWl. TEXT, 

HH^2.TEXT, and SEWS. TEXT.} 



1 

Change v^at file? <ret> 
QSTGS:SEW1.TEXT changed to OLDSEWl.TEXT 
QSTGS:SEW2.TEXT changed to 0LDSFIV2.TEXT 
QSTGS: SEWS. TEXT changed to 0LDSF17S . TEXT 



Figure 4-11. Qiange Cannand Using Subgroup-Specifying String. 




Filer: G(et# S(ave/ W(hat# N(^w, L(dir/ R{esu/ C(hng, T(rans, D(ate/ Q(uit 



(The exanple below shows the use of the equal sign alone to change all the 
file names in a directory. The letter "A" is added before each file name.} 

■i 

Change vhat file? <v^ 

LCALGS:RC3^0.RPGL changed to ARGDEI^O. RPGL 

LCALGS : DS . COEE changed to ALC.GOEE 

LCALGS:LCMASK changed to ALCMASK 

LCALGS:LCDUMP.COEE changed to ALCDIMP.GODE 

ICAI13S:LLC.C0EE changed to AUjC.COEE 

D2AIX3S: TEST. TEXT changed to ATEST.TEXT 

LCALGS:TEST2.TEXT changed to ATEST2.TEXT 



Figure 4-12. Change Cotimand Using Equal Sign. 



Page 4-20 



If the response to the "Change vhat file?" prorpt in Figure 4-11 is changed to 
"LCnlA»:a=,a <ret>", the "A" at the beginning of all the file names is removed. 



{The catinand and response belov changes the volume name "LCALGS:" to 
"QSTGS:".} 



ii 

Change vhat file? IjCAIjGB;,C2STGSs <ret> 
LGAU3S; changed to QSTGS: 



Figure 4-13. Change Command — Changing the Volume Name. 



4.2.8 T(rans (Transfer Ccmnand) 



The Transfer Ccrnnand copies tlie ^cified file(s) or volume to the given 
destination, leaving the source file or volume intact. Ihe Transfer can- 
raand is initiated b/ typing a T from tlie Filer min connand line. The fol- 
lowing prompt appears: 



I Transfer vvhat file? 
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The source and destination for the copy must be given. These file specifications 
are required and must be separated by a ccnma or a <ret>. These specifications 
may be entered in response to the first prcmpt on that line separated by a 
conina. Alternately, the source specification only may be altered cn that line; 
in that case, a second prarpt appears as shown belcw. 



I To vhere? 



The destination specification is required in response to the second prompt . 

The size specification is recognized and is used to allocate space for the des- 
tination file. (See the Make connand in this chapter.) 



Transferring Files Across Volumes 



An individual file or group of files can be transferred (or copied) frcm one 
volume to another, leaving the original file intact. V7ild card specifications 
are valid in the file specifications. The following points describe the use 
of wild cards with the Transfer canTiand. 

• The $ can be used to transfer a file to another volume 

without changing the file name. The destination file name is 
replaced by the $ although the destination volume must still be 
given. 



InoteI 



The destination file name ^lould not be 
cdipletely omitted; the $ ^ould appear with the 
volume name. If the file name is omitted, the 
directory of the volune may be destroyed. If the 
file name is omitted and no $ is given, the Filer 
praipts as below. 



1 Possibly destroy directory of < destination vol>? 



A "Y" answer to this proirpt causes the directory 
of the destination volume to be destroyed. A 
"N" response allows the oortiTiand to be reexecuted 
with the volume name plus a $. 
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• If tlie source file specification includes a wild card 
criaracter and the destination is a block-structured device, the 
destination file specification must also contain the wild card 
character or must contain a $. 

w Subset- speci^ing strings in the source specification 

are replaced with analogous strings (replacement strings) in the 
destination specification. 

• Any of the si±)set-specifying strings my be empty. Ihe 

equal sign (=) used alone specifies every file on the volume. This 
wild card character used as the destination specification causes the 
subset-specifying strings in the source specification to be replaced 
with nothing . 

• The ? may be used in place of the equal sign to cause 

the Filer to prcrrpt the user for confirmation of the transfer. 



Transferring a File on the Same Disk 



Files my also be transferred or copied fron a volume to the same volume. Tb 
do so, the same volume name is specified for ttie source and destination. This 
capability is especially useful to relocate a file csi the disk. 

On same-disk transfer, specifying the number of blocks for the copied file 
causes the Filer to copy the file into the first available area that is at least 
as large as the specified size. Otherwise, the Filer copies the file into the 
largest unused area. 

On a same-disk transfer, if the same file name is specified for both source and 
destination, the Filer rewrites the file to the size-specified area and removes 
the older copy of the file. (Two files with the same name cannot exist on the 
disk.) Thus, this type of transfer relocates a file with the original file 
name on the same disk and removes the old file. 



iNOTEi 



Wild card characters should rot be used in file 
specifications for any transfer on the same 
disk. Ihe results are unpredictable. 

The fbllcwing projipts appear when the source and destination file names are 
given with the device nunber used as the volume specification. 
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I Put destination disk in #5 
I IVpe < space > to continue 



To effect the transfer on the same disk, a <space> is entered. 



Transferring Qie Volume to Another 



One ccnplete volume is copied to another hy specifying only the source and 
destination volume names or device numbers. Transfers fran oie Winchester 
volume to another Winchester volune result in a proipt that asks for a new 
name for the destination volume. Transferring from one block-structured 
volume to another causes the destination volunne to be an exact copy of 
the source volume, including the directory. The following prompt appears 
to verify that an exact copy including directory is desired. 



I Possibly destroy directory of < destination volume>? 



If a Y or y is entered, the volume-to- volume transfer is carpleted. If an N 
is entered, the action is aborted, and the Filer main catmand line reappears. 

Ihe Y response is often used to create a backup copy of a source diskette. The 
name of the destination volume can be changed to ^ow that it is a backup copy, 
if desired. 



iNOTEl 



The name of the destination disk should be 
changed immediately, or the diskette removed, 
because two volumes on line with the same name 
cause unpredictable results. 

Prior to the H2 release of the III.0 Operating System, a volume-to-volume 
transfer did not transfer the bootstrap. Ifowever, with the H2 release, the 
Transfer conmand copies track 0, v^here the bootstrap resides, to the new volume. 
This coiy of track 0 occurs only on floppy disk transfers; transfers to or 
from the Winchester disk do not copy track 0. 
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Transfers With Isfon-Block-Structured Volumes 



The Transfer cxjnTnand can he used to fries to volLEnes that are not hl«wn-:k~ 

structured (for example, COSrsOLE:, PRINTER:, or RByiOTE: ) by specifying the 
appropriate volime name or device number. The file name is then ignored. The 
destination volume must be on line. 



Transfers from non-block-structured devices are possible; however, the source 
must be an input device. In this case, the source file specification is unnec- 
essary and is ignored if present. 



Examples 



Figures 4-14, 4-15, 4-16, 4-17, and 4-18 show examples of the Transfer ccrrraand. 
Gaiments are taiclosed in braces ( { } ) , and user input is ^aded . 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{The following ccmnand and responses illustrate a transfer of all files 
using the equal sign and $.} 

T 

Transfer vhat file? <ret> 

LGALGS;RGDByiO.RPGL transferred to LCALGS1;RO)EMO.RPGL 

]XAL>3S:LjC:.C 00E1 transferred to LGALGSl.QODE 

LCSLGS;IjCMASK transferred to LCALGS1;MASK 

LCALGScDGDCMP.COEE transferred to L8A]jGSl:DUyiP.CDDE 

LGALGS:IIjC.COEE transferred to DCMiGSl:LIjC.CDDe 

LCALGS: TEST. TEXT transferred to LCALGSl; TEST. TEXT 

LGALGS;TEST2.TEXT transferred to LCMXS1:TEST2.TEXT 

Figure 4-14. Transfer Carmand Using Equal Sign and $. 

Figure 4-14 presents an exanple in which all the files on one volume are trans- 
ferred to another volume using an equal sign to specify all files and a $ to 
speci:fy that the files are copied with the same name as the original file. 

Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(om, C(hng, T(rans, D(ats, Q(uit 

{The Scllcwing aannand and responses illustrate the use of a subset- 
speciifying string to transfer a groi:p of files to another volume.} 

T 

Transfer ^^at file? ljQC3yjGS:IO=,ID^ <r^> 

LGGALGS:I£I.COEE transferred to IDGIN:LL.CDDE 

IGGALGS:L£MASK transferred to LOGIN: LLMASK 

LGGAD3S:LCrXJMP.C0EE transferred to LOGIN: LLDUVIP.COEE 



Figure 4-15. Transfer Caniiand Using Subgroup-Specifying Strings. 





One, t\MD or all three fields of the date entry rnay be changed. For exanple, 
entering 29 changes the day; entering -Jun changes cnly the month; and entering 
— 83 changes only the year. The hyphens hold the place of the fields that are 
not changed. Also, entering 29-Jun changes the day and the month. (Any 
mcnth name entered that is longer than tliree characters is truncated to three 
characters . ) 

If a <ret> is typed in response to the prorpt, the date is not changed. 

Figure 4-19 gives an exanple of changing tlie day and month through the Date 
ccrnmand . Osments are enclosed in braces ( { } ) ; user input is ^aded . 



Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(l:-irig, T(rans, D(ate, Q(uit 
{The fbllcwing connand and responses illustrate changing tlie system date.} 

m 

Date set:<l. .31>-<JAN. .rax:>-<00. .99> or <CR> 

Today is 5-i lay-82 
New Date? 6-jtni <ret> 

New date is 6-\Jun-82 



Figure 4-19. Exanple of the Date Oortmand. 



In the Date comand exanple, the month is entered wita the first letter in lower 
case. Mien the Filer displays the new date the first letter of the month is 
an ipper case character. 



4.2.10 Q(uit (Quit Oortmand) 



The Quit oanmand exits the Filer portion of the III.0 Operating System; the min 
(outer level) caimand line is displayed on the top of the screen. This command 
is executed ty typing Q from the Filer min command line. 
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To veri:fy that the file was indeed moved, the E(xt-dir (Extended Directory) 
earrraiid can be used to see the size and location of the file before and after tlie 

uj- cu lo i-?:5 j- • 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R{an, C(hng, T(rans, D(ate, Q(uit 



{The following ccmmnd and responses illustrate a ./olLime-to-volun^ transfer 
of files. } 

Transfer vhat file? E3CB:,XKK$ <ret> 

Possibly destroy directory of XXX? Y 

H30S: transferred to XXX: 



Figure 4-18. Transfer Gonmand — Volume- to-Volume Transfer. 



The exanple in Figure 4-18 illustrates a volume- to- volume transfer of files. 
Tne ne^^ diskette is an exact copy of the source diskette. If an L (for List 
Directory) is entered for the new volume, the name of the new volume is H30S, 
instead of XXX. The new diskette should be removed immediately or the volume 
name changed (see Change camiand) so that two volumes with the same name are 
not on line. 



4.2.9 D(ate (Date Goiinand) 



The Date ccramand sets (or changes) the date used by the 1 1 1.0 Operating Systen 
to ^ow when a file is saved. The Date camiand is initiated by typing a D 
fran the Filer main oaimand line. The following prcrrpt appears for the date 
change. 



1 Date set:<l. .31>-<JAN. .EEC>-<00. .99> OR <CR> 
I Today is 5-May-82 
I New date? 



A new date may be entered in the format described con the first line above, 
followed by a c:arriage return (<ret> or <cr>). The new date is immediately 
displayed . 

Either a hyphen (-) or back-slash (/) may be used as the delimiter between the 
date fields. 
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Figure 4~15 presents an exairple in vAiich the subgroup of files tliat begins 
with "LC" is transferred to another volume and is prefixed with the characters 
"LL" in place of the original "LC". 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{The following aannand and responses illustrate a file transfer across 
volumes . } 



ill 

Transfer \«hat file? IiC:MjGS:TEST2.aiaT,lJC^ <ret> 

LGALGS;TEST2.TEXT transferred to LOGIN :TEST2. TEXT 



Figure 4-16. Transfer Gatinand — File Transfer Across Volumes. 



Figure 4-16 presents an exairple of copying cne file from oie volume to another 
volume using the file specification. 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(an, C(hng, T(rans, D(ate, Q(uit 

(The following ccmnand and responses illustrate relocating a file on the 
disk by using the same file specification for both the source and destin- 
ation . } 



11 

Transfer vhat file? liCaiiSSiliGWASKC^],!^^ <ret> 

LCALGS;LCMASK exists. . .remove it? # 

LGALGS;LCMASK transferred to LCALGS;LCMASK 



Figure 4-17. Transfer Gorrmand — Same Disk Transfer. 



Figure 4-17 presents an exarrple of relocating a file on the same disk. Ihe size 
specification appears in brackets after the source file name. The Filer writes 
the new file into an unused area of at least nine blocks. If a size specifica- 
tion is not given, the Filer writes the new file in the largest unused area. 

The old (original) file is removed. The prompt regarding the removal of the 
existing file only appears if a size specification is used. 
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4.2.11 B(ad-blks (Bad Blocks CJotiinand) 



The Bad Blocks conmand scans the disk/diskette to determine if damaged or cor- 
rupted blocks exist on the disk and to identify the bad areas. This ocmrciand, 
although not displayed on the Filer main oarmand line, may be executed by typ- 
ing a B from the Filer main or secondary cormand line. (The secondary cannand 
line is displayed in response to the entry of a ? firom the Filer main oonmand 
line. ) 

The following prcrrpt begins the bad-blocks scan. 



I Bad blocks scan of v\hat vol? 



Either the volume name or device number, follcsAed fcy a <ret>, is entered in 
response to the prcxrpt. 

After the first question is answered, the following prompt appears: 



I Entire disk (nnnn blocks)? 



This question requires a Y or an N as a response. The number in parentheses is 
the total nurnber of blocks on the volurie, \/hich depends on how the disk was 
initialized and recorded. A Y (for yes) response causes the scan to begin. 

An N (for no) entered results in the following prompts. 



i First block? 



The beginning block number of the range of blocks to be scanned is entered, 
followed by a <ret>. The next pronpt asks for the ending block number of the 
range. 



I Block nnnn to? 



The beginning block number of the range is substituted for nnnn above. The 
ending nuiber is entered, followed by a <ret>. The following message then 
appears, restating the range to be scanned. The scan begins. 
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I Block range: nnnn to nnnn 

If bad blocks are found, the prorrpts in the subsequent paragrajiis appear. 

Once the prompts for tlie oitire disk or a range are answered, the scan loegias. 
If bad blocks are found, the message belcw appears. 

I Block nnnn is bad 



In the message, the nnnn represents the actual block number. Every bad block 
is reported cxi the display. Once a group of bad blocks are discovered, the 
following question appears. 



1 Examine blocks nnnn - nnnn? 



This question presents the range of bad blocks (nnnn-nnnn) and asks if the user 
vents the bad blocl^ examined. If a Y is entered and the bad blocks contain 
data, the Filer sullies further information about the damaged area. This 
infometion is the name of the file voritten cai the bad area; also, the block 
range of the file is r^xarted. Another pronpt appears as ^own below. 



I File ( s ) endangered : 

I file name nnnn nnnn 

I Try to fix th^? 



The Filer can try to recover the blocks, or, if a fix is not possible, can mark 
the blocks as "bad" . Ihe attenpt to fix the bad blocks consists of reading, 
rewriting, and then rechecking the blocks. If, after the attaipt to fix the 
bad blocks, the blocks are still bad, the next prompt asks if the Filer i^ould 
mark the bad blocks. 



! Mark them (may remove files!)? 



Marking bad blocks that have data stored cn them causes the file to be removed; 
therefore, an n i^ould be entered unless the file is expendable. If an n is 
entered, the scan continues. 
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However, if bad blocks are reported on an area of disk that is unused, those 
blocks can be inarked and are not used in any subsequent writes to disk. In 
that case, if a Y response is entered, a <^ick message flashes as the blocks 

ilidjL jnweu* j-r^ ^::;A.i=:\^L4c.xny i:j \ AZ^—kjljJl 1>XJL tiC U->ry uOlluklXluy ^ t-Uti QJbtiX 

sees the area marked as bad. Ebr exaiiple, the directory entry might appear 



as below . 




1 LCALGS; 


1 


1 <unused> 274 


10 1 


1 BAD. 00284. BAD 27 6-May-82 284 


572 Bad Disk i 


A message appears v\hen the scan is conpleted, 
bad blocks, as below. 


reporting the total number of 


1 nnnn bad blocks ficund 


1 



If the disk/diskette contains bad blocks, the safest move is to transfer the 
good files from its directory to a good disk. The disk that has bad blocks 
can then be reformatted using the PCSRMAT program, then rescanned to determine 
if the area if livable. 

In the previous sequence of prampts and actions, the examine and fix actions 
may report that the bad blocks were possibly fixed. Although the Filer may 
consider a block good, the block may not be "good" for the user's purpose. 

That is, a text file should be closely examined to determine if garbled text 
appears in the file. A data file should be manipulated by any program that 
uses it to determine the validity of the file. A code file that had bad blocks 
fixed ^ould sinply be replaced. 

Often the cause of bad blocks is that bad or corrupted data were written on the 
disk. Overwriting or reformatting may correct that type of error. Hiysical 
damage to, or problons with the recording surface, are unrecoverable errors. 

Figure 4-20 shows ai exanple of a bad blocks scan in vhich bad blocks are 
reported. ODnments are enclosed in braces ({}); user input is shaded. 
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Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 
B 

Bad block scan of vAiat vol? <eefc> 

Entire disk (988 blocks)? If 

{On floppy drives, clicking noises result 
nnnn as blocks are scanned. Block nuiribers flash 

Block 742 is bad in place of nnnn.} 

Block 743 is bad 
Block 744 is bad 
Block 745 is bad 
Block 746 is bad 
Block 747 is bad 
Block 748 is bad 
Block 749 is bad 
Block 750 is bad 

Examine blocks 742-750? Y 

File(s) endangered; 

SYSTEM. E?^SCAL 655 765 {File name and beginning and ending 

Try to fix them? Y blocks of file.} 

Block 742 is bad 
Block 743 is bad 
Block 744 is bad 
Block 745 is bad 
Block 746 is bad 
Block 747 is bad 
Block 748 is bad 
Block 749 is bad 
Block 750 is bad 

Mark than (my remove files i ) ? U 
Continue scan? Y 
ContinLe bad block scan 
12 bad blocks found 



Figure 4-20. Bad Blocks Scan (Bad Blocks Pound) . 
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Figure 4-21 gives an example of a bad block scan in 'Ahich no bad blocks are 
found. 



rAiJ-sr; 'avec, ov^ve, wvxkit# iN^ew/ J:<\au/ v^^iing, xvj-ono, 



B 

Bad block scan of vJiat vol? <ret> 

Entire disk (1976 blocks)? T 

nnnn {On floppy drives, clicking noises result 

as blocks are scanned. Block numbers 
flash in place of nnnn.} 

0 bad blocks found 



Figure 4-21. Bad Blocks Scan (No Bad Blocks Ebund) . 



4.2.12 E(xt-dir (Extended Directory Oommand) 



The Extended Directory connand is an extension of the List Directory cctrmand. 
This ccmrnand displays, or lists, detailed information about the specified 
directory of a disk/diskette volume. Although this ccrnmand is not displayed 
on the Filer main ccmnand line, it is executed ty typing an E from the Filer 
main or secondary oannand line. (The secondary connand line is displayed ty 
typing a ? from the Filer main connand line. ) 

The following proipt appears in response to the connand invocation; 



1 Dir listing of v\hat vol? 



The use of wild card characters is the same for the Extended Directory connand 
as for the List Directory connand. (See Section 4.2.5 List Directory connand.) 

The data shown through use of this connand are (1) file name; (2) unused 
areas of disk; (3) block length for each file; (4) last modification date; 

(5) starting block address; (6) number of bytes in the last block in the 
file; and (7) file kind. The sumnary line at the oid of the list is the 
same as the summary line of the List Directory connand. 

Figure 4-22 gives an exarrple of the Extended Directory connand. Ocrments are 
enclosed in braces ({}); user input is shaded. 





Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 
E 

Dir listing of vtot vol? lOlilJGBs 



LGALGS: 



RGDEMO.RPGL 


8 


12-Apr-82 


10 


96 


Datafile 


LC.CODE 


67 


12-i^r-82 


18 


512 


Codefile 


< UNLBED > 


9 




85 






LCDCMP.COEE 


18 


12-Apr-82 


94 


512 


Codefile 


LLC.COEE 


64 


25-Mar-82 


112 


512 


Codefile 


< UNUSED > 


8 




176 






TEST2.TEXT 


4 


30-Apr-82 


184 


512 


Text file 


TEST. TEXT 


4 


30-:Apr-82 


188 


512 


Textfile 


< UNUSED > 


9 




192 






LC'IASK 


9 


30-Apr-81 


201 


512 


Datafile 


< UNUSED > 


1766 




210 







7/7 files < listed/ in-dir>, 174 blocks used, 1792 unused, 1766 in largest area 
Figure 4-22. Exarrple of the Extended Directory Ocnmand. 



In Figure 4-22, the volume name ajpears at the top of the first column. Ihe 
first column gives the file name and unused areas. Oolunm tsAO is the block 
length of the file. Column three is the last modification date of the file. 

The nunber in column four is the starting address of the file (block number). 
Ihe fifth column shows how many bytes exist in the last block of the file. Ihe 
last colimn shows the file kind. 



4.2.13 K(mch (Crunch Gcxtinand) 



Ihe Crunch ccmmand moves the files on the specified volume toward the begin- 
ning of the disk so that unused blocks are grouped at the end. Ihis connand 
is initiated fcy typing K from the Filer main or secondary connand line. (The 
connand appears on the Filer secondary connand line, v^ich is accessed ty 
typing a ? frcm the Filer main connand line.) 

The prompt that is displayed in response to this connand follows. 



I Crunch vhat vol? 
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7\fter tlie volume name or device nurnber is entered, the jBolloiving prompt is dis- 
played . 



1 Are you sure yDu vant to crunch <vol name or ID>? 



The second prcanpt asks the iser to verify continuation of tlie crunch operation. 
A Y response causes the Filer to begin moving files. An N response aborts the 
crunch operation; the Filer min ccrmand line is redisplayed. 

The volume specified to crunch must be on line. As each file is moved, its 
name is reported on the console. If SYSTEM. PASCAL is moved during a crunch 
operation, the systen must be rebooted. 

The Crunch coinmand is not allowed if the Copier Task (see CDPY utility, 

6.16) is active on a file on the volume to be crunched. 

Figure 4-23 presents an exanple of the Crunch canrand. Ocmments are enclosed 
in braces ( { } ) ; user input is shaded . 



Page 4-35 




Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{in this example, the Extended Directory of the volime is listed before tlie 
Crunch comiand is used. Ihe crunch operation is completed; then, anotlier 
copy of the Extended Directory listing is given. Ihus, a "before" and "after" 
picture of the disk usage is ^own.} 

E 

Dir listing of v^t vol? XiCMJGS5ret> 



LGALGS; 



RGDEMO.RPGL 


8 


12-Apr-82 


10 


96 


Datafile 


LC.COEE 


67 


12-Apr-82 


18 


512 


Codefile 


< UNUSED > 


9 


85 






LCDUMP.COEE 


18 


12-Apr-82 


94 


512 


Codefile 


LLc.cora; 


64 


25-Mar-82 


112 


512 


Codefile 


< UNUSED > 


8 




176 






TEST2.TEXT 


4 


30-i^r-82 


184 


512 


Textfile 


TEST. TEXT 


4 


30-Apr-82 


188 


512 


Textfile 


LCMASK 


9 


30-Apr-82 


192 


512 


Datafile 


< UNUSED > 


1766 




210 







7/7 files< listed/ in-dir> 174 blocks used, 1792 unused, 1766 in largest area 



K 

Crunch vAiat vol? i£MX3S$ <ret> 

Are you sure you vant to crunch LCALGS:? Y 

Moving LLCDCMP.COEE 

Moving LLC.CODE 

Moving TEST2.TEXT 

Moving TEST. TEXT 

Moving DCMASK 

LCALGS: crunched 



E 

Dir listing of v\hat vol? LCAZ/B; 



LCALGS; 

RCDEMO.RPGL 


8 


12-Apr-82 


10 


96 


Datafile 


LC.COOE 


67 


12-Apr-82 


18 


512 


Codefile 


LCDUMP.COEE 


18 


12-Apr-82 


85 


512 


Codefile 


LLC.CODE 


64 


25-Mar-82 


103 


512 


Codefile 


TEST2.TEXT 


4 


30-Apr-82 


167 


512 


Textfile 


TEST.TE>!T 


4 


30-Apr-82 


171 


512 


Textfile 


I£MASK 


9 


30^r-81 


175 


512 


Datafile 


< UNUSED > 


1792 




184 






7/7 files< listed/ in-dir> 


174 blocks 


used. 


1792 unused, 17' 



largest area 



Figure 4-23. Exanple of the Crunch Ccrmnand. 
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4.2.14 M(ake (Make Gatmand) 



r-yy»Ti;aT-»<^ 

vA.Ai.&LiCu.xvx ^d a V-UUl. W- CA-»JL ^ WJLU0.1 UiIS7 J.JL^3\a 

carniand is initiated fcy typing M firom the Filer main or secondary aonnand line. 
(This cGsuiiani xs displayed cxi the secondary coiiiiand Ixne/ vhich xs accessed ty 
typing a ? fran the Filer min connand line.) 



The fcllowing prarpt appears requesting the specified file name and specifica- 
tion. 



I Make vhat file? 



The file specification must be entered in response to the prortpt. In this case, 
the optional file size specification can be useful in managing disk space effec- 
tively. If no size specification is given, the Filer creates the file using the 
largest unused area of disk. 

The size specification, if used, follows the volume name (or device number) 
plus file name. That is, the number of blocks enclosed in brackets ([]) appears 
imnediately to the right of the file name. TSf/o default size specifications are 
explained belcw. 

[0] This size specification is the same as emitting a size specification. 

The file is created in the largest unused area. 

[*] This size specification results in the file being created in the second 
' largest, or half the largest unused area, vhichever is larger. 

Because other files cannot use the area allocated to a file created by the Make 
carmand, the catmand can be used to create a directory entry in order to reserve 
that area of disk (for exanple, to save the space for future use). 

Files with a file name that ends with .TEXT must occupy at least four blocks 
and must occijpy an even number of blocks. If the ISfeke oernmand is used to create 
a text file with a size specification of less than fbur blocks, the fbllowing 
message appears; 



I tfo room on. vol 



If the l^ke cemnand is used to create a .TEXT file with a size specification that 
is an odd number of blocks, the file is created with cxie less block than specif- 
ied. 

Figure 4-24 gives examples of the M(ake cemmand to create file entries in the 
directory. In the figure, cemments are enclosed in braces ({}); user input is 
shaded . 
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Filer: G(et# S(ave, W(hat, N(ew, L(dir, R(aTi, C(hng, T(rans, D(ate, Q(uit 

{Three exanples of the INfeke ccmmand are i^own below'. The Extended Directory 
listing for the volume is shown before and after the I'lake operation.} 



E 

Dir listing of v\hat vol? 



LCAJjaS; 

RGDEi^lO.RPGL 8 

LC.COEE 67 

LCDUMP.CODE 18 

LLC.COEE 64 

TEST2.TEXT 4 

TEST. TEXT 4 

LCMASK 9 

< UNUSED > 1792 



7/7 f i les < listed/ in-dir > 



LCALGS: <r&t> 



12-Apr-82 


10 


96 


12-;^r-82 


18 


512 


12-Apr-82 


85 


512 


25-t4ar-82 


103 


512 


30-Apr-82 


167 


512 


30-Apr-82 


171 


512 


30-Apr-81 


175 


512 




184 




174 blocks 


used. 


1792 1 



Datafile 

Godefile 

Codefile 

Godefile 

Textfile 

Textfile 

Datafile 

lused, 1792 in largest area 



M 

Make v^hat file? IXMJGB;*ISST3*TEXrC283<r^> 
LGALGS: TESTS. TEXT made 
M 

iviake ^^hat file? liCaXi38jTeST4.*mXPr53<r^ 
LGALGS:TEST4.TEXT made 
M 

Ivlake v^hat file? lJGMiGB:TESlS.13BXI?M 
LCALGS: TESTS. TEXT made 

E 

Dir listing of v^t vol? UdiAXiGS: <ret> 



LCALGS: 



RGDEMO.RPGL 


8 


12-Apr-82 


10 


96 


Datafile 


LC.C(XE 


67 


12-i^r-82 


18 


512 


Godefile 


LGDUMP.CODE 


18 


12-Apr-82 


85 


512 


Godefile 


LLC.COEE 


64 


25-Mar-82 


103 


512 


Godefile 


TEST2.TEXT 


4 


30-Apr-82 


167 


512 


Textfile 


TEST. TEXT 


4 


30^Apr-82 


171 


512 


Textfile 


LCMASK 


9 


30-Apr-81 


175 


512 


Datafile 


TESTS. TEXT 


28 


6-May-82 


184 


512 


Textfile 


TEST4.TEXT 


4 


6-May-82 


212 


512 


Textfile 


TESTS. TEXT 


880 


6-May-82 


216 


512 


Textfile 


< UNUSED > 


880 




1096 







10/10 files <listed/in-dir>, 1086 blocks used, 880 unused, 880 in largest area 



Figure 4-24. Three Exairples of the Make Gommand. 
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The three exarrples of the Make cxaimand in Figure 4-22 illustrate several points. 
The first make operation creates a file that is allocated 28 blocks of sf^ce; 
the Extended Directory listing confirms that the specified size vvqs allocated 

T ^ rnc*omO rnc*vm 

*hie second make operation specified the creation of a text file of five blocks. 
The file vhs actually allocated four blocks, one block less than the odd— numbered 
size specification, as i^own on the directory listing. 

The third make operation uses a default size specification that causes the Filer 
to allocate half the largest unused area to the file. The directory listing 
confirms that the file oitry is made according to Reification. The "before" 
listing ^ows a total, and the largest unuised area, of 1792 blocks. The first 
two mke operations used 32 of those blocks, leaving 1760 blocks in the largest 
unused area. The third make operation specifies a size of half that area — 
or 880 blocks. The directory listing confirms that 880 blocks are allocated 
for the file TESTS. TEXT. 



4.2.15 P (refix (Prefix Gcranand) 



The Prefix ccrtinand changes the current default volume to the volume specified. 

The defeult (prefixed) volume is the volume on which the III.0 Operating System 
searches for any file referenced vhich does not have an explicit volume name or 
device number given. By default, the syst^ volume is the prefixed volume unless 
changed by the Prefix oammand. 

The Prefix cenmand is executed by typing a P from the Filer main menu or secon- 
dary cemnand line. (This ccmTiand appears on the Filer secondary cerrmand line, 
\^ich is accessed by typing a ? from the Filer main ccranand line.) The prompt 
in response to a Prefix ccramand is as follows: 



I Prefix titles by vhat vol? 



The desired volume name or device number is entered in response to the prerrpt. 
If the current default prefix is not known, entering a colon (; ) in response 
to the pretipt causes the current prefixed volume to be identified. 
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After tlie volun^ name or number is entered, a message is displayed as follow j 



I Prefix is < volume name/device number > 



The volume specified to be the prefixed volume is not required to be cai line. 

If the volume prefix is changed to other than the system volume and the system 
is rebooted for some reason, the prefixed volume is still the default (the system 
volume) \rthen the system comes up after rdDooting. 

Figure 4-25 gives an exanple of the Prefix aanmand. Cfcnments are oiclosed in 
braces ( { } ) ; user input is shaded . 



Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, T(rans, D(ate, Q(uit 
P 

Prefix titles by v\hat vol? :<ret> 

Prefix is H30S; 

P 

Prefix titles by v\hat vol? 

Prefix is LCALGS: 

F 

Prefix titles vhat >hat vol? 

Prefix is DGALGS: 

{The above ccmmands show first the current prefixed volume, v\hich is the 
operating system volume H30S. Ihe next Prefix acramand changes the pre- 
fixed volume to LCALGS ; . Ihe third execution again checks the current 
prefixed volume, v\hich is now LCALGS: instead of H30S:.} 



Figure 4-25. Exaitples of the Prefix Command. 
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4.2.16 V(ol (Volumes Gcitinand) 



OUl^^ 



g»/^ c*/~vn^ 

.OO*/ ^tJiVi^vV*? 



xTic: v<u»xuul0ia» CUllilicuiQ xXouo clxx vOxuuloo v^xu.x»iuxjr ^ii xj 

reserved volumes that are not on line. Ihe on-line volumes ^ow the associated 
unit numbers, lno prompt line is displayed; no file specification is allowed. 



The Volumes ocniTiand is specified ty typing V from the Filer main or secondary 
connand line. (This ccrrinand is displayed cn the Filer secondary carmand line, 
v^ich is accessed ty typing a ? frcm the Filer main coimand line.) 



Figure 4-26 shews a lypical display produced by the Voluraes cannand. In the 
figure, the user input is shaded. 



Filer; G(et, S(ave, W(hat, N(ew, L(dir, R(an, C(hng, T(rans, D(ate, Q(uit 
¥ 

Volimes available — ‘ (number) ' indicates unit offline 
Serial l/O 

1 CONSOLE; 2 SYSTERM; 1 7 RCONSl; 8 REMOTE: | 

(15) RCOSIS2; (16) RTERM2; 1 (17) RCOJS3: (18) RTERM3; I 

Parallel l/O 

(6) PRINTER: 

Blocked l/O — Prefix is LCAI/3S; System unit is H305; 

4 H305; 5 LGALGS; 

Figure 4-26. Typical Volumes Cbrnmand Display. 



The display in Figure 4-26 lists information about on- and off-line volumes. 
(See Section 2.2 also.) The on- and off-line volumes with associated unit/ 
devices nurbers are listed. 
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Ihe serial l/O non-block-structured volutnes are (1) the system console 
(unit #1; or CXisISOLE; ); (2) the system terminal (unit #2; or SYSTERM:), 
v^hich is the ocnputer ocninunication line back to the system console; 

(3) a serial printer (unit #8: or REMOTE:); (4) a remote console (unit 
#7: or RCX3SIS1:), v\hich is the computer communications line to the serial; 
and (5) sets of off-line remote terminals and remote consoles (unit #s 
15;/16:, and 17:/18; — RC0SIS2:/RTERMS2; and RCa?S3:/RTERM3; ) , ^lich are 
remote devices (each with a system ccrmiunication line from the computer) 
vhich could be connected to this 1600 modular i^stem. Additional remote de- 
vices could be added such that the voliine pairs 19: /20; through 25: /26; would 
be used for RCOSfS4:/RTERM4 through RC0NS7:/RTERM7. 

For parallel l/O, the printer (unit #6: or FRINTEIR: ) is off line. Volume 27 
could be an additional parallel printer (PRINTRl:). 

The block-structured l/O volumes are unit #4: (H305:) and unit #5: (LCADGS:). 
The prefixed volme is currently DGALGS : , and the system unit is H305 : . Add- 
itional block-structured volumes (unit #s 9 through 14) are allowed. 



4.2.17 X(amine (Examine CJormand) 



The Examine command attenpts fhysical recovery of suspected bad blocks that 
have been detected by use of the Bad Blocks command. (See Section 4.2.11.) 
The Examine command is initiated by typing X from the Filer main or secondary 
command line. (This command is displayed on the Filer secondary command line, 
vhich is accessed by typing a ? from the Filer rnain command line.) 

After an X is entered, the following prompt appears; 



I Examine blocks on. vhat vol? 



The volume name (or device number) entered must be on line. After the volume 
name or device number is entered, the following prompt appears; 



I First block? | 



After the first block of the range of blocks is oitered, the following prompt 
appears; 



I Block nnnn to? 



After the ending block number of the range is entered, the following message 
appears and the Examine action begins. 
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i Block range: nnnn to nnnn 



I 

I 



Tile Hxauiine action reads tlie *3ad 01 oc 
ine message reports that the block(s) 
the message below appears: 



CJL^ vacrUC^UULllO JLJ. JLU 0.0 jjQjU • J.JL UJ. iC: iO^CULE— 

is bad and the block has been written to. 



I Elle(s) endangered: 
I <file nante> 

I Try to fix thou? 



A Y ansv^er causes the Filer to examine the blocks and return either of the fol- 
lowing messages: 



I Block nnnn may be OK 
j Block nnnn is bad 



In the first case, the block may have physically been fixed. In the second case, 
an option to mark the block as bad is givoi. The porciipt regarding marking the 
block is as below. 



I Jferk them? 



If the bad blocks occur on an unused area of disk, marking the blocks as bad prevents 
that area from being used ty other files or from being used ty the Crunch ccrmiand. 

A N answer to the "Try to fix them?" prompt causes the Filer main ccninand line 
to be displayed. 

Although the block may be r^xorted as possibly OK, it can be physically OK but 
can contain garbage. Fixing a block ccxisists of reading, writing, and reread- 
ing the block. If the reads are the same, the message "May be OK" is displayed. 

If the reads are different the block is declared bad. 

Figure 4-27 gives exarrples of the Examine catinand to examine bad blocks cn a disk 
that ccntains bad blocks. Octrinents are enclosed in braces; user input is diaded. 



InoteI 



Western Digital has aihanced’the Bad Blocks 
ccmnand to include the Examine function as an 
automatic response to detecting bad blocks. 
However, the ability to perform the Examine 
function separately is still available. 
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Filer; G(et, S(ave, W(hat,N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{a disk containing no files is known to have three areas of bad disk. 
One area has been marked as bad. The Examine ocmmand is used below to 
determine if the other areas are bad and, if so, to mark them. An 
Extended Directory listing is givoi to show the areas marked as bad.} 



■ 

Examine blocks on vhat vol? 
First block? 

Block 336 to? i » 

Block range: 336 to 336 
Block 336 is bad 
Block 336 is still bad 
Mark them? ^ 

BAD. 00336. BAD marked 

11 

Examine blocks on v^t vol? 
First block? 388 )' 

Block 388 to? h## 

Block range; 388-414 
Block 388 is bad 
Block 389 may be CK 



Block 413 may be OK 
Block 414 is bad 

Blocks 388 thru 414 are still bad 
Mark them? Ht' 

BAD. 00388. BAD marked 

Dir listing of vhat vol? 

LCALGS; 



< UNUSED > 


274 




BAD. 002 84. BAD 


27 


6-May-82 


< UNUSED > 


25 




BAD. 00336. BAD 


1 


6-May~82 


< UNUSED > 


51 




BAD. 00388. BAD 


27 


6-May-82 


< UNUSED > 


1561 




3/3 files < listed/ in- 


-dir>. 


55 blocks used, 



10 

284 


512 


Bad 


disk 


311 

336 


512 


Bad 


disk 


337 

388 


512 


Bad 


disk 


415 









1911 unused, 1561 in largest area 



Figure 4-27. Exairples of the Examine CJcninand. 
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Z ( ero { Zero Gomnaiid ) 



The Zero connand is used to initialize the directoiry on a specified volime with 
a new volume name and with all hlocks csi the dislc unused* The Zero ccniuand is 
initiated by typing Z from the Filer main or secondary cctnmand line. (This 
ccrnnand is displayed on the secondary ccmmand line, which is accessed ty typing 
a ? from the Filer main connand line. ) 



The following prorrpt appears in response to the Z entered. 



1 Zero dir of v\hat vol? 



The current name (or device number) of the volume to be zeroed is entered; the 
volume must be on line. If the disk has not previously been zeroed, the follow- 
ing prompt appears: 



1 Duplicate dir? 



If a Y response is entered, a duplicate directory is maintained. Ihe primary 
directory resides in blocks 2-5; the duplicate directory resides in blocks 
6-9. If the primary directory is destroyed, the disk can be restored from the 
dijplicate directory using the utility CDPYDUPDIR. 

The next prorpt appears as below; 



1 # of blocks nnnn (max)? 



This prompt ^ows the maximum nurriber of blocks that can be oitered on the disk 
depending on the disk type. Ihble 4-2 lists the various types of diskettes 
and the appropriate number of bloclcs for each. 
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Table 4-2. Block Quantities on Disk. 



Disk 

Type 




Number of 
Blocks 


Single-density, 
soft-sectored , 


single-sided, 
8" floppy 


494 


Single-daisity, 
soft-sectored , 


dual-sided, 
8" floppy 


988 


Double-dorisity, 
soft-sectored , 


single-sided, 
8" flof^ 


988 


Double-density, 
soft-sectored , 


dual -sided, 
8" floppy 


1976 



The user nuist ans'wer with a Y or an N; if an N is entered, a prcnpt appears ask- 
ing for the niinber of blocks. The Filer next prompts for the new volume name 
as follows: 



! Ne^v vol name? 



After the volume name is altered, the fbllcwing question appears for verification 
that the data are correct. 



I < volume name> nnnn blocks correct? I 



If a Y is entered, the diskette is zeroed, and the following message appears. 



I <volume name> zeroed 



If an N response is given, the zero action is aborted, and the Filer main comiand 
line appears. 

If tt a specified disk has been previously 2 :eroed, the following changes in the 
prompt sequence occur. The following prorrpt appears before the duplicate 
directory prcmpt; 



j Destroy < volume name>? 



This prcmpt asks for verification that the directory of the volume is to be 

zeroed. 
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Also, the prorpt regarding the number of blocks is different, as shown below: 



A V\1 X v-vv^v-vy^ N O 

tr WJL '^iliUUl^ • 



Figures 4-28 and 4“29 show examples of the Zero oonmand and the appropriate res- 
ponses . Oonnents are enclosed in braces ( { } ) ; user input is ^aded . 



Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{The follcwing ccranand and responses are appropriate for zeroing a blank 
diskette. The diskette is jSDmatted (Section 6.12) before the diskette 
is zeroed.} 



Z 

Zero dir of vshat #5;<ret> 

Duplicate dir? Y 

# of blocks 1976 (max)? Y 

New vol name? SBW 

SFW: (1976 blocks) correct? Y 

SFW zeroed . 



Figure 4-28. Zero Cjcmnand (Blank Diskette). 



The above diskette is a double-sided, double-density diskette. The number of 
blocks must be entered in response to the prompt although the appropriate 
nixnber for the type of diskette appears as a reminder. 



Filer: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit 

{The following ocmniands and responses are a typical sequence for zeroing 
a single-sided, double-density diskette that has been previously zeroed.) 

Z 

Zero directory of \^hat vol? X£J:<ret> 

Destroy LC? Y 

Keep present # of blocks <988>? Y 
New vol name? <ret> 

BKUP: (988 blocks) correct? Y 
BKUP: zeroed 



figure 4-29. Zero Cannand (Disk Previously Zeroed) . 
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5. 



PASCAL CCMPILER 



The III.0 Operating System Pascal Gcrrpiler converts source programs (English- 
like statonents) into machine-executable P-code (or instructions). 

This Cbnpiler supports UCSD Enseal (IM) developed at the University of 
California, San Diego. UCSD Pascal includes the Vvirth nucleus plus seme 
additional features that expand its capabilities. Western Digital has also 
added features to the Carpi ler. Some of the extensions to the III.0 
Operating System Gorpiler are listed belcw: 

• Long integers (up to 36 digits). 

• Strings. 

• Random file access. 

• Automatic loading of program segments from disk storage. 

• Separate conpilation and linking of Pascal modules. 

• l/O and interrupt programriing . 

• Program synchronization through SIGNAL and WAIT CN 
SEMAPHORE. 

• Multitasking through START of Pascal processes. 

The Compiler siports the 128-segment capability an static (system segment 
vector) as \ft^ll as vectored (user segment vector) code files. Programs 
carpiled on the H2-release Conpiler my not be run on software releases 
prior to H2. However, programs cctrpiled on releases prior to the H2 release 
will run on the H2 or later version of the operating system. 
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5.1 (XMPILER INVOCATION 



The Pascal CfcgTpiler is a one-pass recursive descent ccmpiler invoked from 
the 1 1 1.0 Operating System outer level ccrmand line ty typing a C (for 
C(aTpile) or an R (for R(un). 

The Gaipile carmand is used tc explicitly ccmpile a source file. If a vyork 
file ®cists, the Gcxipiler automatically cdipiles the wark file. If no vork 
file exists# the Con^iler pronpts for the name of the file to he ccsTipilsdj 
the praipt is shown below: 



I Ccmpile vhat text? (<ret> to exit) 



Likewise, the Run oannand automatically compiles the work file. The Run 
cannand is i:sed most often with the SYSTEM. Pi/RK. TEXT file. The work file is 
created vhich contains the source code; then the Run ccmnand is used to 
ccnpile and execute the source program. An attendant SYSTEM. V'/RK.COEE file 
results from the ccrrpilation if no syntax errors are detected. 

If a syntax error is detected, the Gorrpiler indicates the area in the source 
text ^f^here the error occurred. (Section 5.4.2). The user has three choices 
regarding the syntax error: (1) continue the ccnpilation; (2) terminate the 
coipilation, or (3) return to the Editor to change the source in question. 
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5.2 SYNTAX OF (XMPILER OPTIONS 



Certain cxatpiler options are available that instruct the Ocrtpiler to generate 
code according to a given specification (see section 5.3). The Gctnpiler 
options are written as connents in the source text; these options are preceded 
by a $. Ihe syntax of these options can be one of the two following formats; 

(*$<qption sequencexany carEnent>*) 

{$<option sequencexany ccmnent>} 

In these two formats the (**) and {} oiclose ccttments. 

In the < option sequence> portion of the syntax, the options are listed 
separated by cornnas. Each option is shown by a capital letter followed by 
either a plus (+) sign or minus (-) sign. The plus activates the option; 
the minus negates the option. The letter designating the first option must 
inmediately follow the $. 

If default options are to be used, they are not included in the <option 
sequence >. Three of the ccnpiler options described in Section 5.3 may be 
followed by file names rather than a plus or minus. These options are (1) the 
Included (I) option, vhich includes another source file in the conpilation; 

(2) the Listing (L) option, \>hich lists the source program to a nondefault 
destination (fbr exarrple, to another file); and (3) the User Program (U) option, 
^ich determines whether or not the ccnpilation is of a user or system program. 
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5.3 CCMPILER OPTIONS 



As explained previously, certain ocnpiler options are available to allows the 
user to specify hew the cenpilation of the source program is to proceed. 

This section lists and describes those coipiler options. All ocnpiler options 
may be entered in upper or IcMar case. 



5.3.1 G Option (Accept /Reject GOTO Statements) 



The G (GOTO) option determines v\hether or not the Compiler accepts a GOTO 
statement. The effects of the plus and minus sign vAien used with "G" are 
shown below. 

G- Generates a syntax error on encountering a GOTO statement. 

G+ Allows the use of the GOTO statement in the source text. 



I NOTE I 



In a Pascal program v\here a GOTO statement is 
used, other statements may often be substituted. 
For exarrple, the PCR, WHILE, or REPEAT statements 
may be used in most cases. 

The default value for this option is G-. 



5.3.2 I Cption (Include Another Source File) 



The I (Include) option has two basic forms. The form in v\hich the I is 
imnediately followed ty a plus or minus controls l/O checking code that 
is emitted ty the Ocxrpiler. The other form in v\hich the I is immediately 
followed ty a file name causes the Compiler to include a different source 
file into the compilation at the point. 



I/O diecking 



The default value for the l/O checking form of this option is I+. 

The effects of the plus and minus signs used with this option are given 
on tiie following pages 
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1+ Generates code after each l/O statement to determine v\hether 
or not the l/O corpleted sucessfully. If the l/O does not 
carpi ete, the program terminates with a run-time error. 

I- Does not generate l/O checking code. Therefore, if an l/o 
does not successfully carplete, the program does NOT 
terminate with a run-time error. 

The I -option is used frequently with system level programs vhich explicitly 
check the lORESULT function after each l/O operation. The I- option program 
can detect and report: l/O errors without terminating abnormally. However, 
if lORESULT is not checked with the I- option, I/O errors my be undetected, 
and program bugs my increase. 



Include Another Source File 



The syntax of the Include option that instructs the Ccnpiler to include 
another source file is given below. Either form my be usech 

(*$I<file narae>*) 

{$I<file name>} 

The ccrrment must be closed at the end of the file name; no other options can 
follow. If the file name begins with a plus or minus sign, a blank must be 
inserted between the I and the file name. 

If the first atterrpt to open the included file feils, the CJcnpiler appends 
" .TEXT" to the name and tries again. If the secmd attempt fails or if an 
I/O error occurs v^hile reading the included file, the Conpiler responds with 
a fatal syntax error. 

The included file my be inserted at any point in the original program on 
the condition that the rules governing the normal order of Pascal declarations 
is not violated within a given file. The Corrpiler accepts included files that 
contain the declarations CONST, TYPE, and VAR, even vhen the file has partially 
or fully corpleted its declarations. 

If the included file contains PROCEDUE^ or FLNCTIOSI declarations, the "I" con- 
ment must appear after all GOSIST, TYPE, and VAR declarations in the original 
file. If the included file contains CONST, TYPE, or VhR declarations, the "I" 
carmei... .oust appear before the first PROCEDURE or FUNCTION declaration of the 
original program. 

The Compiler cannot track nested Include carments. Therefore, if the included 
file contains anotlier Include ccmment, a fetal syntax error is generated. 

The Include option is useful for breaking ip large programs in smaller, more 
easily miiaged parts. 
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SYSTEM. SWAPDISK 



SYSTEM. SWAPDISK is an oipty file that is used fcy the Gcnpiler to swap out 
information in its table vhen caipiling very large programs. This file is 
used only when conpiling programs that use the I option and contain many 
variables . 



5.3.3 L Option (Source Program Listing) 



The L (listing) option directs the Ccnpiler either to generate a listing of 
the source program to a given file or not to generate a listing. Ihe default 
is L-. 

The effects of the plus and minus sign used with this option are described 
below: 

L- Does not generate a catpiler listing. 

L+ Generates a ccrrpiler listing and writes the listing in a disk file 
" SYSTEM . LST . TEDCT " . 

The user may override the default destination by speci:fying a file name 
following the L. Tb specify a file name with an option comment, refer to 
the description in Section 5.3.2, the I Option. 



i NOTE i 



The file that contains the program listing may be 
edited the same as any other file if the file name 
contains the suffix ".TEXT". Otherwise, the file 
is considered to be a data file rather than a text 
file. 

The contents of a source program listing are described and illustrated in 
Section 5.4.3. 



5.3.4 P (^tion (Paging a Listing) 



The P option causes a source program listing to be paginated. That is, a 
page feed is generated every time a P+ occurs in the source text. The 
effect of the plus and minus used with this option are described below: 

P- Suppresses paging. 

P+ Generates a page in a source program, listing. 

The default value for this option is P-. 
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5.3.5 Q Option (Quiet CciTpiler) 



The Q option ( "quiet" oarpiler) determines v\hether or not the Ocnpiler 
goierates procedure names and line nroribers detailing the progress of 
ccmpilation at the system console. 

Ihe effects of the plus and minus signs used with this option are described 
below: 

Qf Suppresses corpilation progress information to the OGSTSOLE device 
as corpilation progresses. 

Q- Sends procedure names and line numbers to the OONSOLE device as 
ccmpilation progresses. 

The default value for this option is set to the current value of the 
SlJQWTEM attribute of the system ccmniunication record, SYSCXM^ .MISINFO. 
SIDWTERM. (Refer to Section 6.1 for setting this attribute.) 



5.3.6 R Option (Range Checking) 



The R option (range checking) determines vshether or not additional code is 
generated to check array subscripts and assignments to variables of subrange 
types. The default is R+. 

The effects of the plus and minus signs used with this option are described 
below; 

R+ Enables range checking. 

R- Disables range checking. 



I NOTE I 



Programs cotpiled with the R- option selected usu- 
ally run slightly faster than those compiled with 
the R+ option selected. However, if an invalid in- 
dex or an invalid assignment is made, the program 
does NOT terminate with a run-time error. 



5.3.7 S Option (Swapping Mode) 



The S option determines \^ether or not the Compiler operates in swapping 
mode. In swapping mode, only one of two main parts (declarations or 
statements) is in main memory at one time. Swapping out one main part 
frees 2500 additional words of memory for syirbol table storage. 
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A consideration, however, is that in SA^jping mode cotpilation is slower. 
Generally the ooipilation time is twD-to-three times slower in swapping 
mode than in nonswapping mode. This option must be set before the Cbitpiler 
encounters any Pascal syntax. 

The effects of the plus and minus signs used with this option are described 
below. The default value for this option is S-. 

S+ Puts the Cotipiler in swapping node. 

S- Puts the Conpiler in nonswapping mode. 



5.3.8 U Option (User Program) 



The U option determines whether or not the compilation is a user or syston 
program ccnpilation. The default value for the option is U+. The effects 
of the plus and minus signs used with this option are described below: 

U+ Cortpiles the program at a user program lexical level. 

U- Gonpiles the program at the system lexical level. This 
form of the U option sets the R-, G+ and I- options. 



1 NOTE I 



Selecting U- generates programs that may not behave as 
expected. The U~ option is not recoranended for nonsys- 
tera work unless the method of operation is known. 

Prior to the H3 release of the operating system, programs compiled with $U- 
option v^e restricted to 16 segments (0 to 15). With the H3 release, these 
programs may contain ip to 128 segments (0 to 127). 



I NOTE i 



Because $U- programs use the system segment vector at 
run time, they must coexist nondestructively with the 
operating system segments. Thus, to avoid replacing 
syston segments by the $U- program segments, all $U- 
programs should declare dummy segments for any segments 
in use by the operating system. The only segments 
guaranteed NOT to be operating system segments are 
segments 1, and 8.. 15. Therefore, any $U- program that 
includes segments other than these may not be capable 
of coexisting nondestructively with the operating system. 

Figure 5-1 shows an exairple of a pixjgrara that uses the $U- option. Because 
the U- option allows access to operating system globals, use of the option 
can be dangerous. 
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{$u-} 

{This program derocMistrates $U-. This csortpiler option allows a prograintier to 
access operating system global s. Be careful about altering operating system 
glctoals as this can have a deleterious effect. This option also allows 
dynamic allocation of files in the heap.} 

program pascalsystemexanple; 

type 

phyle = file; 
inforec = record 

v\orksym , workcode : ^phyle ; 
errsym , errblk , errnum : integer ; 
slowtenri/Stijpid: boolean; 
altmode: char; 
end; 

var filler; array[0..6] of integer; {space holder fbr unused OS globals) 
userinfo; inforec; 

segment procedure theprogram; {This segment procedure is the actual user 
program. The program's global variables should be declared here.} 

type filep = ^phyle; 

var op; filep; 

arr; packed array[0. . 1023] of char; 
c: char; 
fil: file; 

{Declare 8 segment procedures with no code to make subsequent segment pro- 
cedures fell in the user segments. This is necessary as the operating system 
uses segments 0 and 2-7, vhile a user program has segments 1 and 8-15. These 
' forward ' declarations are only needed if the program contains other segnoit 
procedures. Note that $U- allows forward procedures to remain unresolved, 
because they are needed only as space holders . } 

segment procedure num2; forvyard; 
segment procedure num3; forward; 
segment procedure num4; forward; 
segment procedure num5; forward; 
segment procedure num6; forward; 
segment procedure num7; forward; 

{The program's segment procedures, if any go here,} 
segment procedure f irstuserses ; 
var i: integer; 
begin 

write In ( ' in, s^ment 8 ' ) ; 
i ;= i + 1; 
end; 

Fig^are 5 -I. $U- Option Exanple (Continued on Next Page). 
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begin 



{This csDde is invoked v^ien this program is execute . } 

{in other wards, this code will be the cuterblock of the program.} 
{For example, get the altmode character defined by SETUP } 
c := userinfo. altmode; 

{Dynamically allocate a file.) 
new(cp); 



{The following statement moves the initialized FIB fil (done automatically 
by the system) into the new FIB for op.) 
moveleft ( fil , cp^ , sizeof ( fil ) ) ; 

reset ( op^ , ' dum . text ' ) ; 

if blockread(op",arr,2) <> 2 then writeln (’read error’); 

{Call the first user segment procedure.} 
firstusers; 
end; 

begin end. {This code will never be executed.} 

Figure 5-1. $U- Option Example (Continuation). 



The U option is also used to name a library file. The file named becomes 
the file in vhich subsequent USES USTITs are sought. The default file for 
the library is *SYSTEM. LIBRARY. 

Figure 5-2 gives an exanple of a USES clause with the U option. 



USES UNITA, UNITD, {Found in *SYSTEM. LIBRARY} 

{$U NEW. CODE} 

UNITB, 

{$U OLD.COrai} 

UNITC, UNITE; 

Figure 5-2. Example of USES Clause with U Option. 



The example code causes the Compiler to read units UNITA and UNITD from the 
file *SYSTEM. LIBRARY, unit LBSTITB from the file NEUV.CODE, and units UNITC and 
UNITD from the file OLD.COEE. Ihe ”.COra;" suffix must be included as part of 
the file name for the alternate library. 
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5,4 CXMPILER OOTPUT 



The cxanpilation process can produce several types of output; (1) conpilation 
progress displayed cn console; (2) syntax error messages; and (3) a source 
program listing. 



5.4.1 Conpilation Status Information 



During the course of oarpilation, the Gctrpiler displays messages on the sys- 
tem ocosole detailing the progress of the ccmpilation. The infomation can be 
supressed (described in this section) so that no information is displayed. 



Information Displayed 

Ihe fol laving ocnpilation progress information is displayed on. the console 
unless the display is explicitly supressed. 

• Name of the file being ccnpiled. 

• The message; Oorrpiling. . . . 

• Name and version of the Cortpiler. 

• Line number of the first line ccnpiled, enclosed in angle brackets (<>). 

• A dot ( . ) for each line oarpiled. 

• At the start of carpilation of the first procedure; 

— Line number, enclosed in angle brackets. 

— Identifier of the procedure. 

— Number of 16-bit wards currently available for symbol table 
storage, enclosed in square brackets ([]). 

— A dot as each source line is ccnpiled. Whenever 50 lines have been 
ccnpiled, the Gonpiler generates the current line number. 

• For each subsequent procedure encountered, the same itons listed above. 

• Vhen all source lines have been ccnpiled; 

— The total mattoer of lines ccnpiled. 

— A message indicating the smallest available space. 
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Figure 5-3 shows a typical display of ocmpilation status information. 



SEND. TEXT 



Coipiling. . . 



PASCAL Oonpiler [3.0] 

< 0 > 

LAINIT [4710] 

< 43> 

GETFILE [4692] 

< 52> 

WRITEIT [4674] 

< 71> 

NEWLINE [4634] 

< 84> 



< 134> 



< 184> 

COPYIT [4616] 

< 192> 



SEND [4627] 
< 205> 



211 lines 

Smallest available space = 4616 words 



Figure 5-3. Typical Conpilation Status Information. 



In Figure 5-3, a 211 -line program is read frcm the file SEND. TEXT and ccirpiled. 
The program contains six procedures. 



Supressing Cjorpilation Status Information 



If the source program includes the Q+ (quiet corpile) option, the display of 
ccxrpilation status information is surpressed. (See Section 5.3.5.) 
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5.4,2 Syntax Error Messages 



If a syntax eriror is detected in the source program, the Ccrrpiler generates 
an error message. A list of the error messages is given in Appendix B.2. 

A syntax error message consists of the segment of source text containing the 
error, with the symbol at v^hich the error was detected indicated by the 
marker ; 

<<<< 

The error number follows the text. (See Appendix B.2) 

Although error messages are usually displayed on the screen, if the source 
program ccMQtains the Qt (quiet ccrrpile) and LH- (list source program) options, 
syntax error messages are written to the file SYSTEM. 1ST. TEXT (v\hich my be 
edited like any text file) and coipilation continues. 

If these options are not selected and a syntax error is encountered, the 
Carpi ler generates the error message to the console device. The Gorpiler then 
prorpts the user to indicate how to proceed, for example: 



jLine N, error nnn: <sp> (continue) , <esc> (terminate) , E(dit 



The response to the pronpt is to enter a space, an escape, or an E (for edit). 
These three options cause the following actions: 

< space > Continue with the corpilation. 

<esc> Terminate the coipilation. 

E Access the editor. 

If the Editor is accessed, the cursor is positioned at the error location and 
the error nimber is displayed at the top of the screen. All Elditor facilities 
are available to correct the error. Once the error is corrected, the 
coipilation can be repeated. 

Figures 5-4 and 5-5 show exanples of syntax errors. The exanple in Figure 5-4 
lists the error message to the screen; the exanple in Figure 5-5 writes the 
error message to the SYSTEM. 1ST. TEXT file. Coiments within the figures are 
enclosed in brackets. 
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{The following sinple Pascal program is altered as the system \ftT>rk file 
SYSTEM. WRK. TEXT ) . Ihe period after the vord "E3SID" is emitted (a syntax 
error) . } 

PROGRAM SLM ( INPUT, OUTPOT); 

{*THIS IS A SIMPLE PASCAL PROGRAM.*) 
var A, B,C,D, TOTAL: INTEGER; 

BEGIN 

WRITEIN( 'ENTER POUR NUMBERS TO BE ADDED. . . ' ) ; 

READ (A,B,C,D); 

TOTAL :=A+B+C+D; 

WRITELN( 'TOTAL EQUALS', TOTAL) 

END 

{When the Run cxiTinand is executed, the following display appears.} 

Conpiling 

PASCAL Oorapiler [H3] 

-- ->SYSTEM . WRK. TEXT 

< 0 >.... 

SUM [30267] 

< 4>..., 

— SYSTEM. WRK. TEXT 
<<<< 

Line 9 , error 401 : < sp> ( continue ) , < esc > ( terminate ) , E ( dit 



Figure 5-4. Syntax Error Exanple - Message displayed. 



In Figure 5-4, if an E is entered, the Editor brings rp the vork file with 
cursor positioned on line 9 and the error number displayed at the top of the 
screen. Error 401 is defined in Appendix B.2 as "Unexpected end of input". 
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[The following simple Pascal program is altered as tiie system work file 
SYSTEM.V7RK.TEXT. Trie semicolon after "INTEGER" is emitted (a syntax error). 
The qaiet oarpile (Q+) and list source program (L+) options are selected.} 



PROGRAM SUyi (iNPirr, OUTPUT); 

{*THIS IS A SIMPLE PASCAL PROGRAM.*} 

{$Q+,L+} 

VAR A, TOTAL: INTEGER 

BEGIN 

WRITEIN( 'ENTER POUR NUMBERS TO BE ADDED. . . ' ) ; 

READ (A,B,C,DJ; 

TOTAL :=A + B+C+D; 

WRITEUSf( 'TOTAL EQUALS', TOTAL) 

END. 

{When the Run Gcmraand is executed, the following display appears . } 
Coipiling. . . . 



PASCAL Ooirpiler [H3] 

— > SYSTEM. WRK. TEXT 

< 0 >... 

— SYSTEM. WRK. TEXT 
10 lines, 4 sec, 150 lines/min 



{Because the Q+ and L+ options are selected, the error message is 
written to the SYSTEM. 1ST. TEXT file, v\^ich is ^own below.} 



3 


128 


1;D 


1 


{$Q+,L+} 


4 


128 


1:D 


1 


VAR A, B,C,D, TOTAL: INTEGER 


5 


128 


1:0 


0 


BEGIN 


>>>>>> 


Error # 


14 






6 


128 


1:1 


0 


WRTTEIN( 'ENTER POUR NUMBERS TO BE ADDED. . . ' ) ; 


7 


128 


1:1 


25 


READ (A,B,C,D); 


8 


128 


1:1 


69 


TOTAL := A + B + C + D; 


9 


128 


1:1 


78 


WRITEEN( 'TOTAL EQUALS ' , TOTAL) 


10 


128 


1:0 


110 


END. 



Figure 5-5. Syntax Error Exarrple - Q+ and L+ Option Selected. 



In Figure 5-5, the error message is written to the SYSTEM.LST.TEXT file. Error 
#14 is defined in Appendix B.2 as " expected". The source program listing 
is described in Section 5.4,3. 
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5.4.3 Source Program Listing 



If the source program includes the L or L <file> option, the Gcrrpiler 
generates a source program listing. 

Preceding each source line in the program listing are five pieces of 
information: 

• The line number. 

• The segment procedure number. 

• The procedure number. 

• Either 

— A letter D to indicate that the line is part of the declarations, or 

— An integer (0 through 9) to denote the lexical level of statorvent 
nesting within the code part. 

• The number of bytes (for code) or words (for data) required by the 
declarations of the procedure or code to that point. 

Figure 5-6 illustrates a typical source program listing and describes the 
various pieces of information. 



Page 5-20 




1 


1 


1:D 


1 {$L+} 


2 


1 


1:D 


1 program exarrple; 


3 


1 


1;D 


1 const ten = 10; 


4 


1 


1:D 


1 var i. 


5 


1 


1:D 


1 j; integer; 


6 


1 


1:D 


3 a: array [0. .5] of integer 


7 


1 


1:D 


9 


8 


10 


1:D 


1 segment procedure segproc; 


9 


10 


1:D 


1 var local int: integer; 


10 


10 


1:0 


0 begin 


11 


10 


1:1 


0 localint:=i; 


12 


10 


1:0 


3 end; {segproc} 


13 


10 


1:0 


6 


14 


1 


2:D 


1 procedure proc; 


15 


1 


2:D 


1 var localreal: real; 


16 


1 


2:0 


0 begin 


17 


1 


2:1 


0 localreal: =4. 5; 


18 


1 


2:0 


7 end; {proc} 


19 


1 


2:0 


10 


20 


1 


1:0 


0 begin 


21 


1 


1:1 


0 proc; 


22 


1 


1:1 


6 segproc; 


23 


1 


1:0 


17 end. 


A 


A 


A A 


A A 



statement . 

In declaration part, number of 
wards used by declarations. 

In statement part, byte offset of 
program counter relative to start 
of procedure. 

> Declaration flag (D) or nesting 

level indicator. 

> Procedure number. 

> Segment procedure number. 




> Line number. 



Figure 5-6. Source Program Listing. 
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6. OTILITIES 



This diapter describes the various programs available as part of 
the III.0 C^)erating System. Each utility is described and 
execution instructions are given. Tlie utility capabilies 
explained in this chapter are listed belcw. 

• SETUP 

• BOOTER 

• BOOIMAKE 

• CDPYDUPDIR 

• MARKDUPDIR 

• LIBR?^RIAN 

• LIBRARY MAP 

• LINKER 

m P-CnPE DISASSEMBLER 

• GALCUtATOR 

• QOTOXY EROCEDURE BINDER 

• AUTOMATIC EXECUTIOSr 

• EORMATTING FLOPPY DISKS 

m FORMATTING WINCHESTER DISKS 

• PATCH 

• DEBUGGER 

• COPY 
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6.1 SETUP 



I nf onri3.txon about tliG ussr's syst6ni oonfiguiration is X©pt in a fils csallsd 
SYSTEM. MISCINFO. The user inspects or mo^fies this file, using the SETUP 
program. During system initialization, SYSTEM. MISCINFO is read into mem- 
ory. Fran there, it is accessed by many parts of the ^festem Digital UGSD 
Pascal III.0 Cperating System, particularly by the Screen-Oriented Editor. 

Much of the information in this file nust be "set up" by the user to conform 
to the specific hardware configuration and particular needs. Most 
information pertains to the terminal, ke;^^Doard, and disk drives although 
some miscellaneous information mst also be established for any particular 
configuration . 

SETUP is run ty typing an X for execute from the ^stem min connand line, then 
the file name SETUP, followed by a carriage return, is entered in response to 
the file name prarpt. 

Within SETUP are three levels of prctipt selections; the cannands associated 
with each of these levels are ^own below. 

SETUP; C(fmNGE T(EACH H(ELP Q(UIT 

CHANGE; D(ISPLAYED S( INGLE P(RCMPTED R(ADIX H(ELP Q(UIT 
QUIT; D(ISK OR M(EMORY UPDATE, R(ETURN, H(ELP, E(XET. 



6.1.1 SETUP Oarraands 



On entry to the program, the user sees the prorpt line; 
SETUP; C(HANGE T(EACH H(ELP Q(UIT 
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If C is altered, the cxannand line for cCHANGE appears. If Q is entered, the 
cxDiTinand line for Q(UIT appears. If T (for T(EA.CH) is altered, an explanation 
of hov to use the parogram appears on the screen. If an H (for H(ELP) is 
entered, an explanaticxi of vhat the other cctntiands do is listed. Ihe screen 
display is shown belcw: 



C(HANGE) ALLOWS TiIDU TO C3^ANGE OR EX?\MINE 
THE VARIOIB PIECES CF INFa?MATIC»T THE 
SYSTEM ms ABOUT YOUR H?^RDWARE CONFIGURATION 
T(EACH) TEACHES YOU ABOUT BOW TO USE THIS PROGRAM 
Q(UIT) ALLOWS YOU TO M?\KE YOUR CHANGES PERMANENT 
AND LEAVE THIS PROGRAM 

PRESS RETURN TO CONTINUE 



If return is pressed, the SETUP caniand line reappears. 

If the SETTUP program is not on the disk, the following message appears: 



no file setup. CCHE 



SETUP does not tell the system how to do randan cursor addressing cn the 
user's terminal. If this feature is required for the user's hardware 
configuration, information on setting random cursor addressing can be found 
in Section 6.10, GOTOXY Procedure Binder. 



6.1.2 CHANGE Commands 



The C(HANGE ccranand line is shown belcw followsd by a brief explanation of 
each command. The current number base is shown also. 



I *CURRENT NUMBER BASE IS CECIMAL* I 

I C(HANGE: D(ISPLAYED,S(INGLE,P(RCMPTED,R(ADIX,H(ELP,Q(UIT. I 



Entering D (for D(ISPLAYED) displays on the screen all the fields within the 
SYSTEM. MISC INFO file vhich can be modified by the user. After entering the 
D(ISPLAYED option, the user may inspect or modify an individual field by 
responding with an I (for I(NSPECT) and then entering the appropriate field 
number. 

The fields are listed by number and grouped into two categories: Terminal 
Group and General Group. 
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Entering S (for S( INGLE), asks for the name of the field to be changed. VJhen 
the name is entered, the program responds with the field name, shows the 
current value, and asks if the field is to be changed ("Y", "N", or "i"). 

Entering P (for P(RayiPTED) displays each field sequentially on the screen 
shewing the field name, current value, and asking if the field should be 
changed. 

Entering R (for R(ADIX) shows the currant number base and allows the user to 
change the number base to either of the other number bases (three number 
bases are offered as <^>tions: decimal, octal, and hexadecimal). Each time 
the SETUP program is run, the default radix is decimal. Ihe radix is the 
nuriber base that the user chooses to use to enter any new value for a field. 
However, the field values, when displayed, are i^own in all three number bases. 

Entering H (for H(ELP) from the C(HANGE cormand line lists the other C(HANGE 
cernraands and gives a brief explanation of them as shown below: 



DdSPLAYED: SHOWS ALL FIELDS & ALLOWS CHANGES. 
S(INGLE; EXAMINES 1 VALUE BY NAME 
P(RCMPTED; ALL FIELDS SEQUENTIALLY 
R(ADIX: CHANGES IHE ASSUMED RADIX 

FROM DECIMAL TO EITHER OCTAL OR HEXADECIMAL 

PRESS RETURN TO CONTINUE. 



Pressing return causes the C(HANGE cctnnand line to reappear. 

Entering Q (for Q(UIT) causes the SETUP cornnand line to appear on the screen. 



6.1.3 QUIT Oonrnands 



Ihe Q(UIT cettmand line is shown below with a brief explanation of each 
ccrarmand. 



Q(UIT: D(ISK OR M(mORY UPDATE, R(ETURN, H(ELP, E(XIT 



The D(ISK option allows the user to write a current configuration to the 
SYSTEM. MISCINFO file or to a NEW.MISCINFO file. Writing directly to the 
SYSTEM. MISCINFO file provides imnsdiate implementation on rdDooting the 
system. If the system is not rebooted, the SYSTEM. MISCINFO file remains 
as it was until the next reboot. If the information is written as a 
NEW.MISCINFO file, that file may later be changed to the SYSTEM. MISCINFO file. 
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Entering M (for M{mORY UPD?^TE) simply updates the version of the SYSTEM. 
MISCINFO file in memory (not cxi disk) with the current configuration. On 
rebooting the system, that information is lost because it vvias rot stored 
on disk. 

Entering R (for R(EIUEIN) causes the main SETUP catmand line bo appear cn 
the screen. 

Entering H (for H(ETjP) lists the Q(UIT cotmands and gives a brief explana- 
tion of each as shown below. 



D(ISK UPD?^TE PUTS THE: CURRENT SETUP ON DISK 
AS FILE "NEW.MISCINFO" 

OR AS THE FIIE "SYSTEM. MISCINFO" 

M(EMCmY UPDATE CHANGES THE SETUP IN MEMORY 
UNTIL NEXT SYSTEM INITIALIZATICN 
R(ETURN TAKES YOU BACK INTO SETUP 
IF YOU'RE NOT DCNE 
E(XIT TERyilNATES THIS PROGRAM 

PRESS RETURN TO CaSTTINUE 



If return is pressed, the Q(UIT ccramand line reappears. 

Entering E (for E(XIT) terminates the program returning control bo the 
operating system. 



6.1.4 List of Fields in SETUP 



Figure 6-1. lists the fields that can be changed through the 
SETUP program. The figure is laid out as the fields appear 
on the terminal screen when the D(isplayed option is exercised. 
The secticns ficllcwing this figure describe the various fields 
indiviually. 



Page 6-6 





********* TERMINAL GROUP ****** 



I HAS NO INTERRUPTS 2 

3 HAS RANDOM CURSOl ADEE^SING 4 

5 PREFIXEDCMOVE CURSOR UP] 6 

7 prefixedCerase to end line] 8 

9 PREFIXEDCMOVE CURSCK ITME] 10 

II PREFIXEDCERASE SCREEN] 12 

13 PREFIXEDCNON-PRINTING CHARACTER] 14 

15 prefixedCkey for moving cursor up] 16 

17 prefixedCkeyformoveng cursor right] 

18 

19 PREFIXEDCKEY FOR FLUSH] 20 

21 PREFIXEDCEDITOR 'ESCAPE' KEY] 22 

23 prefixedCkey to delete character] 24 

25 SCREEN HEIGHT 26 



HAS LOWER CASE 
HAS SLOW TERMINAL 
PREFIXEDCMOVE CURSCH RIGHT] 

prefixedCerase to em) of screen] 
prefixedCdelete character] 
prefixedCerase line] 
prefixedCkey for n^oving cursor left] 
prefixedCkey for moving cursor down] 

prefixedCkey for stop] 
prefixedCkey to end file] 

PREFIXEDCKEY TO DELETE LINE] 
PREFIXEDCEDITOI "ACCEPT" KEY] 

SCREEN WIDTH 



ENTER C(C»flTINUE, l(NSPECT OR E(XIT 

********* terminal group ****** 



27 


VERTICAL DEIAY CHARACTER 


28 LEAD-IN TO SCREEN 


29 


MOVE CURSCH BCME 


30 ERASE TO EM) OF SCREEN 


31 


ERASE TO END CF LINE 


32 MOVE CURSOR RIGHT 


33 


MOVE CURSCK UP 


34 BACKSPACE 


35 


ERASE LINE 


36 ERASE SCREEN 


37 


KEY TO MOVE CURSOR UP 


38 KEY TO MOVE CURSOR DOWN 


39 


KEY TO MOVE CURSOR lEFT 


40 KEY TO MOVE CURSOR RIGHT 


41 


KEY TO END FILE 


42 KEY FOR FLUSH 


43 


KEY FOR BREAK 


44 KEY FOR STOP 


45 


KEY TO BACK SPACE 


46 NON-PRINTING CHARACTER 


47 


KEY TO DEIETE LINE 


48 EDITCF "ESCAPE" KEY 


49 


LEAD-IN CHAR FROM KEYBOARD 


50 EDITOR "ACCEPT" KEY 


51 


KEY TO DELETE CHARACTER 


52 VERTICAL MOVE DEIAY 




ENTER C(asrTINUE, 


Knspect or E(XIT 




********* 


GENERAL GROUP ****** 


53 


DISK SEEK RATE 


54 DISK READ RATE 


55 


DISK WRITE RATE 


56 XDN/XOFF PROTOCOL 


57 


BAUDE?ATE 


58 CLOCK VALLE 


59 


HAS CLOCK 


60 MENU rmvEN 


61 


TE^ANSPARENT 


62 KEY TO EMPTY QUEUE 


63 


MAX SERIAL PORTS 






Figure 6-1. 


SETUP Fields. 
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6.1.5 Miscellaneous Information 



XON/XOFF PROTOCOL FIELD (GENERAL QIOUP - 56) 

The l/O drivers for the serial ports si:^)port 5O;J/X0FF protocol 
v^ich uses XDN (Oontrol-Q) and XOFF (Control-S) to regulate the 
speed at vihich serial data streams are sent so that queue overflow 
(because of a misimtch of transmitter and receiver speeds) does not 
cause a loss of data. When the 50FF character is received, a serial 
transmitter pauses during data transmission until an character 
is received, thus regulating data flew. 

The transparent mode is enabled ty setting the TRANSPARENT field to 
TRUE. (See the subsection describing transparent in this section.) 

Table 6-1. sunmarizes the effect of the various configurations of 
transparent mode and XON/XOFF protocol. 

Table 6-1. Transparent Mode and XON/XOFF Protocol. 



Standard Configuration Prior to H2 Release. 

Transparent OFF 

XOS[/XDFF OFF 

No Parity Bit Stripping and No Special Character Recognition. 

Transparent ON 

XDN/XDFF CFF 

XON (Control-0) and XOFF (Control-S) Transmitted and Inter- 
preted to Prevent Queue Overflow. 

Transparent OFF 

XON/XOFF ON 

XC8Sr (Oontrol-Q) and XOFF (Control-S) Transmitted and Inter- 
preted to Prevent Queue Overflow. No Parity Bit Stripping 
and No Special Character Recognition Except for the End-of- 
File Character. This Mode is Intended for Use During 
Machine-to-Machine Oortirrunications . 

Transparent (XJ 

XDN/XDFF ON 
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BAUDRATE FIELD (GENERAL GROUP - 57) 



This field ailcws the user to set the baud rate for the serial pDirts. 
When this field is accessed for change, the fcllovdjng choices appear. 



1 BAUERATE[3] 

2 BAlimTECC] 

3 BAUmATECD] 

4 bauee?ateCe] 

5 bauerateCf] 

6 baui»ateCg] 

ENTER MJMBER 1..6 CR EXIT 

The letters in the above list represent the serial ports. After 
the number for the appropriate port is altered, the current baud 
rate for that port is displayed. If a Y is answered to the CHANGE 
THE FIELD PRCMPT, the following list of baud rates is displayed. 



15) 


19. 2K 


11) 3600 


7) 


600 


3) 


134.5 


14) 


9600 


10) 2400 


6) 


300 


2) 


110 


13) 


7200 


9) 1800 


5) 


200 


1) 


75 


12) 


4800 


8) 1200 


4) 


150 


0) 


50 



The nutrber of the desired baud rate for that port is entered. BAUDRATE 
becomes effective at boot, unit dear stataiients, and Filer volume listings. 

CLOCK VALUE FIELD (GENERAL GROUP - 58) 

The CLOCK \®UJE field allows the dock tick rates to be changed to 
tick fran aice every second to once each 1/400 second. Ihe faster 
the tick rate, the more processor overhead for handling the tick in- 
terrupt. Ihe display bdow aj^ars \\hen the field is to be changed. 

FIELD NAME IS CLOCK mOE 

OCTAL DECIMAL HEXADECIMAL 

17 15 F 

SHOWN IN DECIMAL 



SET CORRESPONDING 

CLOCK mLUE TICK-RATE 

1 none 

3 1 SEC. 

5 1/2 SEC. 

7 1/10 SEC. 

9 1/20 SBC. 

11 1/50 SBC. 

13 1/100 SEC. 

15 1/400 SBC. 
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CIjOCK field (general group - 59) 



Should be set to TRUE for the ME1600 Series machines vhich have 
real-time clocks. Ebr the SB1600 Series machines, setting this 
option to TRUE enhances system performance by reducing directory 
reads? however, problons can result if diskettes are &vajped in 
a drive without ensuring the new directory is read in. 

MENU ERIVEN FIELD (GENERAL GROUP - 60) 

This field allows the user to tailor the operating systen to a set 
of prompts (or menus) in order to make the operating system appear 
less complex to the end user. (See Section 7.6.3) for additional 
explanation. ) 

This field is set to FALSE by default. 

TRANSPARENT FIELD (GENERAL GROUP - 61) 

When transparent mode is enabled (set to TRUE), no special 
character recognition interpretation is performed by the operating 
system. This option assures that interpretation of control 
characters in a data stream is not performed if this interpretation 
is not required. In addition, the speed of serial l/O is enhanced 
because special character checking is not needed. 

Under normal conditions for the console unit, the ASCII control 
characters — Control-C (ETX), Cbntrol-F (flush), Oontrol-S 
(start/ stop), Cbntrol-@ (break), and Control-M (carriage return) — 
are interpreted by the serial l/O drivers. In addition, on serial 
input, the high order bit is stripped as some terminals set it. For 
remote serial cormunication of binary data, special character inter- 
pretation is a drawback. 



I NOTE I 



In transparent mode, no end-of-file character 
interpretation is done; therefore, programs may 
not read until the end of the file. 

KEY TO EMPTY QUEUE FIELD (GENERAL GROUP - 62) 

This field allows the keyboard type-ahead queue to be emptied. The 
default value for the key is set to Control-D. This option is 
useful When erroneous type-ahead has been entered, and the user 
wishes to remove it before the system can respond to it. 
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MAX SERLAL PORTS FIELD (GEbJERAL CSIOJP - 63) 



The MAX SERIAL PORTS field defines the maximum number of serial 
ports allcwed for a given system. The value can be set frcm 0 to 8. 
Normally# this fi^d is set to 0# which causes the default number of 
serial ports for tlie system type to be used as the maximum nurttoer. 

The nunrber of serial ports for 1600 systems is shown below. 

SB1600 = 2 

ME1600 = 4 or 8 (If tjwo serial cards are used in an ME1600 
system, 8 serial ports are available.) 

The user may change the setting depending cxi the nuntoer of ports to 
be used, ^proximately 120 words of memory are required per port. 
Therefore, if the system has four serial ports but cxiLy twD are 
being used, 240 words of space could be saved hy setting this field 
to 2 (instead of using the default 0 vhich would show 4 ports). Only 
when monory space is limited should this field be nonzero. 



6.1.6 General Terminal Information 



HAS NO INTERRUPTS 

This field allows the machine to run in noninterrupt mode. If the 
machine is having interrupt problems, this field can be changed 
frcm FALSE (the default setting) to TRUE in order to ddoug the 
system. If this field is not set to FALSE, type ahead does not func- 
tion because it depends on interrupts being enabled. Therefore, the 
recarmended value is FAISE. 

HAS UMER CASE 

If TRUE, the terminal has lower case; otherwise, FALSE. 

HAS RANDOM CURSOR ADmESSING 

If TRUE, the terminal has randan cursor addressing; otherwise, 

FALSE. This type of addressing applies only to video terminals. 

HAS SLOW TERMINAL 

If TRUE, the terminal has a baud rate of 600 or less; otherwise, FALSE. 
When TRUE, the system issues abbreviated prorpt lines and messages. 

NGSTPRINTING CHARACTER 

Any printing character imy be entered here to indicate the 
character that should be displayed to indicate the presence of a 
nonprinting character. The suggested character is an ASCII "?". 
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SCREEN HEIGHT 



Enter the number of lines displayed oi the screen of a video 
terminal. The screen height is usually 24. Otherwise, alter 0 for 
hard-copy terminal or for one in which paging is not appropriate. 

SCREEN WIDTH 

Enter the number of horizontal characters displayed cxi a line of a 
video terminal. The screen width is usually 80 characters (0-79). 
Otherwise, enter 0 for a hard-copy terminal. 

VERTICAL CELAY CHARACTER 

This key is the pad character outjxit after a slew terminal 
operation (such as heme or clearscreen) . The default value is 
NUL=0. 



VERTICAL MOVE EEIAY 

Enter the number of VERTICAL EEIAY CHARACTERS to send after a 
vertical cursor move. The characters are sent after a carriage 
return, ERASE TO END LINE, ERASE TO END OF SCREEN, and MOVE 
CURSOR UP. The maximum value this field can obtain is 41. Many 
types of terminals require a delay after c:ertain cursor novements 
to enable the terminal to corrplete the movement before the next 
character is sent. 



6.1.7 Control Key Information 



Some keyboards generate two codes when a single key is typed. That 
capability is indicated according to the following format; 

PREFIXED[ < f ieldname> ] TRUE 

The prefix for all such keys must be the same. Et>r example, many keys 
function as escape keys in addition to their named function. If a user's 
keyboard had a vector pad that goierated the value pairs ESC "U" and ESC "D" 
for the Up-arrow and Down-cirrow keys, respectively, the values below should 
be entered. 



KEY FOR MOVING CURSOR UP ASCII "U" 

KEY FOR MOVING CURSOR DOWN ASCII "D" 

LEAD-IN KEY FOR KEYBOARD ESC 

PREFIXEDCKEY EDR moving cursor up] TRUE 

PREFIXEDCKEY for moving CURSOR DOWN] TRUE 
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The following keys my apply to all teminals. 

Trrmr Try\r> 

T^ing the BREaK key causes the program currently executing to be 
terminated immediately with a run-time error. This key should be set 
to something that is difficult to hit accidentally. 

KEY TO BACKSPACE 

This key specifies the backspace key for the terminal. 

KEY TO EETETE CHARACTER 

This key ranoves one character fran the current line. It my be typed 
until nothing is left on the line. The suggested setting is ASCII BS. 

KEY TO DELETE LINE 

This key causes the current line of input to be erased. The 
suggested setting is ASCII EEL. 

KEY TO END FILE 

This key is the console end-of-file character that sets the Boolean 
function EOF to True. This key designation ^plies cxily to INPUT or 
KEYBOARD files or the unit OCHSOLE. The suggested setting is ASCII 
ETX. 

KEY FOR FLUSH 

This key is the console output cancel character. VJhen the FLIBH key is 
pressed, output to the system terminal is undisplayed until FLUSH is 
pressed again. Processing is uninterrupted although the output is not 
displayed. The suggested setting is ASCII ACK. 

KEY FOR STOP 

This key is the ccosole output stop character. When pressed, output 
to the system terminal ceases. Output resumes vhere it left off vhen 
the key is pressed again. This function is useful for reading data 
that are being displayed too fest ficr easy reading. The suggested 
setting is ASCII DC3. 
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The following keys are applicable only to video terminals that have selective 
erase . 

EDITOR "ACX:EPT" KEY 

In the Screen-Oriented Editor, this key is used to accept ccmraands, 
thus rnaking permanent any action taken. The suggested setting is 
ASCII ETX. 

EDITOR "ESCAPE" KEY 

In the Screen-Oriented Editor, this key is used to escape from 
cotinands, negating or erasing any action taken. The suggested 
setting is ASCII ESC. 

LEAD-IN CtM FROM KEYBOARD 

Ihis character is the prefix code v\hen two codes are generated for 
one of the keys described belcw (namely, keys to move the cursor tp, 
dcwn, and so forth) . This character designation applies caily to keys 
that have PREFIXEDC<fieldname>] set to TRUE. 

KEY TO MOVE CURSOR UP 

DOWN 

LEFT 

RIGHT 



Ihese keys are used by the Screen-Oriented Editor for cursor control. 
If the keyboard has a vector pad, the keys must be set to the value 
that the vector pad generates. Otherwise, four keys may be chosen in 
the pattern of a vector pad (for exairple, "0", "K" and and 

be assigned the control codes that correspond to them. A prefix 
character may also be used. 
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6.1.8 



Vld60 Scr"©©!! CtolitiTOl CilaX'SCtQjrs 



The video screen control diaracters are sent by the carputer to the teminal 
to control the actions of the tenninai. The tenrinal manual gives the 
appropriate values. If a terminal does not have one of these characters, the 
field ^ould be set to 0, unless otherwise directed. 

On seme terminals, a tv\o-character sequence is required for seme functions 
(for example, ESC plus a character). If the first character fur all of the 
functions is the same, it can be set as the value of the field LEAD-IN TO 
SCREEN. Then the field HREFIX[<fieldname>] must be set to TRUE for each two- 
character function. 

lEAD-IN TO SCREEN 

This character is the prefix code that is used \Ahen twD character 
codes must be sent ficr caie of the functions described in the rest of 
this section. Ihis character designation applies only to functions 
that have PREFIXED [<FIELDNAME>] set to TRUE. 

BACKSPACE 

ihis character causes the cursor to move one space to the left. 

ERASE LINE 

This character causes the erasure of all diaracters on the line vshere 
the cursor is currently located. The cursor is relocated to the 
beginning of the line. 

ERASE SCREEN 

This character erases the oitire screen. The cursor is repositioned 
in the ijpper left hand comer of the screen. 

ERASE TO mo CF LINE 

Ihis character causes the erasure of all diaracters from the current 
position of the cursor to the end of the line. Ihe cursor location is 
unchanged. 

ERASE TO EM) OF SCREEN 

This character causes the erasure of all diaracters from the current 
position of the cursor to the oid of the screen. Ihe cursor location 
is unchanged. 

MOVE CURSOR EQ4E 

Ihis character causes the cursor to be relocated to "hcr^", vhich is 
the i:pper left hand comer of the screen. 
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1 NOTE I 



If the terminal does not have a heme character, the 
field should be set to ASCII GR (carriage return) . 

MOVE CURSOR UP 

RIGHT 



These characters cause the cursor to move nondestructively one space 
in the direction indicated. 



6.1.9 Disk Control Information 



The SETUP program has three fields, 'DISK SEEK RATE', 'DISK READ RATE', and 
'DISK \yRITE RATE' that tailor disk accesses. The operating intern tailors 
disk l/O operations by means of these fields. Therefore, the use may 
configure disk transfer delays and staffing rates of any type of floppy disk 
drive according to the values set in SETUP. Because of the wide variance of 
disk drives, this ability is very useful — full advantage of each type of 
disk drive is possible. Bor example, seme floppy disk drives have a fest 
head stepping rate, so the system stepping rate could be modified using SETUP 
to specify fast step rates. 

When the DISK SEEK RATE field is accessed for change, the following 
choices appear for single- and double-density disks; 

0) 15 ms. + VERIFY 

1) 15 ms. 

2) 10 ms. 

3) 6 ms. 

4) 3 ms. 

NEW VALUE (0. .4); 

The 15 ms. rate is the slowest step rate and 3 ms. is the fastest. 
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For fast driv 0 s, d 4) can Id© s©lect©d tsscaua© the drivss have a fast step 



capability « 



cu. xvea. 



1 \ 

a j. I vji. 



£. I Si IV^UXCi 






/^v-ixT^e* Vi^TT^^ e»1 c5+-^t^ <^ia*r^V\T 1 T+^ir QV1QT*PIM MT.QCTKTPr^ ■Fi 1 o +‘Vi^^'h "i g 

shipped with the operating system has a 3) selected, \^hich is a mcderately 
fast step rate and also regnests the 1791 Controller not to v^eri^r*^ that the 
SEEK is on the destination track. If a user needs a slower step rate, the 
file SLOW.MISCINFO contains option 0) for 15 ms + verijfy. Ihis file must be 
changed to SYSTEM. MISCINFO before boot qp. 



The DISK REM) RATE and DISK \^TE RATE fields specify VNhether or not 
a delay exists before head load. Ihe choices for DISK READ RATS are listed 
belcw: 



0) NO EELAY 

1 ) DEIAY 

The choices for DISK WEIITE RATE are listed belcw: 

0) NO EELAY 

1) EELAY 
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6.1.10 Exarrple 



Figure 6~2 presents an example of changing the MEJSIUmiVEa^ field in the SYSTEM. 
MISCINFO file through the SETUP program. 



Cormiand; E(dit, R(un, F(ile, C(arip, L(irik, X(ecute, D(ebug ? 



H 

Execute viiat file? aetup<xi^ 

Setup Mi sc info [H3] 

INITIALIZING 

SETUP; C(HANGE* , T(EAGH* , H(ELP* , Q(UIT*. 

*CURREISrr NUMBER BASE IS EEX:iMAL* 
CB^ANGE ; D( ISPLAYED, S ( INGLE , P (RCMPTED, R ( ADIX, H (ELP, Q (UIT . 
B 

NAME OF FIELD IS 
FIELD NAME IS MENUDRIVEN 
CURRENT \ALUE IS FAI5E 
CHANGE IHIS FIELD? ( "Y", "N" CR "i’') 

y 

NEW VALUE; 

CHANGE IHIS FIELD? ( 'Y"/'N" OR "i") 
tk 



*CURRENT NUMBER BASE IS DECIMAL* 

CHANGE; D(ISPIAYED, S(INGLE, P(RCMPTED,R(ADIX,H(ELP,Q(UIT. 

SETUP; C(HANGE , T(EACH , H(ELP , Q(UIT. q<rdt> 

QUIT; D(ISK OR M(BM01Y UPDATE, R(ETURN, H(ELP, E(XIT. 

df 

SAVE AS? 

*NEW.MISCINFO 
*SYSTEM. MISCINFO 

EMER N(EW , S(YSTEM , OR E(XIT. 

■ 

QUIT; D(ISK OR M(B^ORY UPDATE, R(ETURN, H(ELP, E(XIT. 

m 

{At this point, the main ccitinand line reappears. Ihe syston must be rebooted 
in order to load the changed SYSTEM. MISCINFO file.} 

Figure 6-2. SETUP Exanple. 



Page 6-18 



6.2 BOQflMAKE 



“The BOQIMAKE prograin is used to configure +Jie bootstrap on all MicroEngine 
product lines: SB1600# ME1600# and V?D0900. The H3 operating system 

interrogates the hardwire configuration on v^hich it is running and configures 
the software system accordingly. 



i NOTE I 



In order to achieve a cannon object, the H3 
bootstrap differs from other boots. Therefore, 
only H3 level bootstraps are operable with the H3 
release . 



The BOOTMAKE program has two uses; (1) to install a code file as a bootstrap 
on a floppy or Winchester disk and/or (2) to speci:^ or respecify the system 
memory size. 

The following sequence of actions defines execution of the BOOTMAKE program. 
(See section 6.13.3 regarding Winchester disks.) 

The BOOTMAE<E program is executed by typing an X from the system main ccmnand 
line; in response to the prorrpt for the file to be executed, BOOTMAKE is 
entered. The following message and prorpt then ajpear. 



I BOOTMAKE version [H3] for floppy and winchester system boots 

I 

I N(ew boot or C(hange old boot parameters (<return> to quit)? 



This pronpt asks if a new boot is to be installed or if the memory size parameter 
of an existing boot is to be changed. If an N is entered for a new boot, the 
following prcxrpt appears. 



I Enter unit Number vhere boot is to be placed (0 to exit): 



Once the unit number is specified, a prcrpt asks for the name of the code file 
that contains the boot code. If a 0 is Altered in response to the above 
prorpt, the program terminates. 



i mter code file name (’BOOT' for standard boot): I 
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The c3ode file name to be entered is BOOT. The boot imist be an H3 or later 
(compatible) boot because neither BOOIMAKE nor the H3 curating system vork with 
earlier boots. 

The next pr a i pt asks for the msmory size requirments of the machine. Because 
the boot cannot automatically determine at boot time how much memory is 
available on the system, this information nust be supplied. If the C(hange 
option is chosen in the first protipt, the program skips the unit nirnber and 
code file name pronpts. 



I Enter number of Kbytes of memory for target system. 

I Use '128' for ME1600S, SB1600S, or any 128Kbyte system. 

I Use '64' for the older 64Kbyte systems. 

I Use '0' to have the system choose automatical ly 128KB for 
1 ME1600 and SB 1600, and 64KB for older models: 



This prorrpt is self-e^qplanatory. An answer of 0 to this prompt permits the 
boot to choose 128K bytes if the computer is an SB1600 or an VEX&dQ, and to 
choose 64K bytes for older systems. 

After all the questions are answered, the new boot or change is written to the 
disk specified. 
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6.3 BOOTER 



The BOOTER utility program copies a bootstrap fircm an exiting disk to a 
specified unit. Oci releases prior to the H2 release, \Ahen making a copy of 
a bootable disk, the BOOTER must be used to place a bootstrap on the 
destination disk. For previous releases, the T(ransfer coiiTiand in the Filer 
does not ccrrpletely copy the bootstrap because track 0 is not normally 
accessed ty the III.0 Operating System but is reserved for the bootstrap. 

On the H2 release of the operating system, however, the Filer T(ransfer 
connand copies the bootstrap to the new volume in a volume-to-volume 
transfer vhen copying from a floppy disk to a flq^^ disk. Although track 
0 is copied in volume-to-volune transfer (for example, T(ransfer #4:, #5:), 
the bootstrap is not copied in other types of transfers. Ihe BOOTER program 
must be used in those cases. 

The BOOTER is run by typing an X for execute from the system main cotrraand 
line. In answer to the file name prompt, BOOTER is entered. Vhen the 
program executes, the following prompt appears: 



BOOTER Version[H3] 

Bootstrap mover for the Pascal Microengine 

To copy a boot from one disk to another, type the unit number 
for the destination disk, and the unit number of the source disk. 



Unit to write boot to <0 to exit>: 



The unit nuiiber of the destination disk is entered, followed by a <ret>. 
Ihe following prompt asking for the source disk unit then appears. 



I Unit this boot is on <0 to exit>; 



Once the unit number for the source disk is entered, the BOOTER transfers 
the bootstrap, and a message appears to indicate that the transfer is 
completed. 
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THIS I9VGE IS INTEOTIONALLY LEFT BL?\NK FOR FORMATTING RJRPOSES. 
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6.4 DUPLICATE DIRECTORY UTILITIES 



Two utilities exist to handle duplicate directories; (1) COPYDUPDIR copies 
the duplicate directory; and (2) MARKDUPDIR marks a disk that is not 
currently maintaining a duplicate directory. These utilities are described 
in the ficllcwing si±>sections . 



6.4.1 COPYDlfPDIR 



This program copies the duplicate directory into the primary directory 
location. The program is entered ty typing an X for execute from the systen 
main oonnand line. In answer to the file name prcmpt, OOPYDUPDIR is 
entered. The following display and prompt appear. 



I Duplicate Directory Cbpier [H3] 

I 

I Enter unit # of user's disk <0 to exit>; 



Once the unit number is entered, the following prompt appears; 



I Are you sure you want to zap the directory of < volume name> : {blocks 2-5}? I 



If a Y for yes is entered, the program copies the duplicate directory onto 
blocks 2-5 (space for primary directory) and issues a message that the 
directory vas copied. 

If an N for no is entered, the following message appears on the screen. 



I Directory copy aborted. Type <ret> to exit. 



If the disk is not currently maintaining a duplicate directory, the 
following message appears; 



I A duplicate directory is not being maintained oi <volume narae>; I 

I Type <ret> to exit. I 
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6.4.2 MARKDUPDIR 



This program narks a disk so that it starts maintaining a duplicate 
directory. Ihe program is entered hy typing an X for execute from the 
system main ccrnnand line. In answer to the file name proitpt, MARKDUPDIR is 
entered. Ihe following prompt then appears. 



I Duplicate Directory Marker [H3] 

I 

I Enter unit # of user's disk <0 to exit>: 



After the unit nimiber is entered, the program checks to see if a duplicate 
directory is already being maintained; if not, the following massage 
appears; 



I A duplicate directory is not being maintained on <volume name>: 



Blocks 6-9 must be free. The program checks for this space and generates 
the following massage if the space is not free. 



I WARNING! It appears that blocks 6-9 are not free for use. 
I Are you sure that they are free? 



If a Y for yes is entered, the program executes the mark, vhich writes a copy 
of the primary directory (on blocks 2-5) to blocks 6-9. If a file already 
resides cxi blocks 6-9, that file is overwritten. If the user is not sure 
that the blocks are free, an N for no should be entered in response to the 
above prompt. In that case, the following prompt appears. 



I lype <ret> to exit. 



After the file is moved to another space or disk, the MARKDUPDIR utility can 
be executed again. 

After the mark is executed, blocks 6-9 can be checked fcy using the E(xtended 
command in the File Piandler. The extended listing i^ows v»here the first 
file starts. If the first file starts at block 6, or if it starts at block 
10 but has a four-block unused section at the top, then the disk has not 
been marked. However, if the first file starts at block 10 and no unused 
blocks occur at the beginning, the disk has been marked. 



Page 6-24 






In the examples below, the 


disks have not been marked 


• 




SYSTEM. PASCAL 


106 


10-Jun-82 


6 


Code file 






or 






<unused> 
SYSTEM. PASCAL 


4 

106 


10-Jun-82 

10-Jun-82 


6 

10 


Codefile 

Godefile 


Below is the directory of 


a properly 


marked disk. 






SYSTEM. PASCAL 


106 


10-Jun-82 


10 


Godefile 


After the unit number is entered in response to the first prompt, if a 
duplicate directory is already being maintained, the following message 
and prompt appear. 



! A duplicate directory is allready being maintained can <volume name>; 
I Mark not dcaie. Type <ret> to exit. 
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THIS S^GE IS IISrrElSmON?yXY left blank for formatting purposes. 
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6.5 LIBRAJOAN 



The Librarian allows the user to lirfc separately ocnpiled Pascal units into a 

library file. The Librarian is executed fcy typing an X from the system main 
cdtmand line. In answer to the prompt for the file name, LIBRARY is altered. 

The Librarian can be used to link segments of any code file or to aid segments 
to the *SYSTEM. LIBRARY file. 

Before adding a segment to the *SYSTEM. LIBRARY file, a new file must be created 
into vhich each of the segments to be retained from the original *SYSTEM. LIBRARY 
file is linked. Segments may then be added fcy linking from another code file 
into the new file being created. 



The Librarian does not enter a unit into the 
library unless it contains executable code. 

6.5,1 Execution of Librarian 



Once the code file LIBRARY has been executed, the following praript appears; 



Pascal System Librarian [III.0 - H3] 

Output code file-> 



The next proiipt asks for the link code file. 



I Link code file-> 




Hie response is either *SYSTEM. LIBRARY or the user code file from vhich units 
are to be linked. Entering an asterisk (*) causes the *SYSTEM . LIBRARY file to 
be used as the input file. 

On specification of the ouput code file and link code file, a ".CDDE" suffix is 
autonatically appended to the file name entered (unless the suffix is already 
present). However, if the file name ends with a period the Librarian 

does not add the suffix. For exanple, the file name "ABC" causes the Librarian 
to attaipt to open "ABC.COEE". The file name "ABC." causes the Librarian to 
attempt to open "ABC". 
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Itie "csDdekind" (static or vectored) of a code file determines the number of seg- 
ments a code file can contain and the segment nirtibers assigned to each segment. 
Pre-H2 release static code files ccsitain, at most, 16 segrr^nts numbered in tlie 
range 0 to 15. The H3 release of the III.0 C^jerating System supports static 
code files that can coitain 128 segments numbered in the range 128 to 255. 
Vectored code files can contain, at most, 128 segments numbered in the range 
128 to 255. 

Once the input (link code file) file nanie is specified, the program displays the 
names of all segments currently linked into the input library, each segment num- 
ber, and the length of eac±i segment in words. Figure 6-3 shows a typical dis- 
play of the segments in the *SYSTEM. LIBRARY. 



Code kind - vectored. Last seg - 132 



128-LO^IOT 


2338 


132-DELAYUNIT 


159 


136- 


0 


140- 


0 


129-SCREENCO 


88 


133- 


0 


137- 


0 


141- 


0 


130-MENU 


32 


134- 


0 


138- 


0 


142- 


0 


131-KBDSTUFF 


113 


135- 


0 


139- 


0 


143- 


0 



Figure 6-3. Display of Segments in Link File. 



\^en the link code file information is displayed, the ocnmand praipt line ^own 
below appears near the top of the screen. 



ISeg# to L(ink + <space>, N(ew file, E(xamine page, M(ultiple link, Q(uit, A(bort| 



The ccmraand options are described in the follcwing paragraphs. 



Seg# to Link + < space > 



\iJhen an L is entered to execute this ccmmand, which specifies vhich segment 
in the link (input) code file to link into the ouput file, the fbllowing 
prompt appears ; 



I Link seg? 
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After a valid segment nurriber is entered, the next protrpt is displayed, as 
shown below: 



! Seg to link into or <esc>? 



This proipt asks for the segment nurriber in the ouput file to vhich the input 
segment is to be linked. 

After the segment is linked, a display of the output oode file is diown. 
Figure 6-4 shows the display if segment 130 from Figure 6-3 has been linked 
into an output code file. 



Code file length - 5 



Code kind - 


vectored. 


Current 


last seg - 


130 








128- 


0 


132- 


0 


136- 


0 


140- 


0 


129- 


0 


133- 


0 


137- 


0 


141- 


0 


130-MENU 


32 


134- 


0 


138- 


0 


142- 


0 


131- 


0 


135- 


0 


139- 


0 


143- 


0 



Figure 6-4. Display of Output File After Linking. 



N(ew file 



This ccnmand causes the pronpt to reappear for a link (input) code file to 
be specified. Ihe N(ew file ccnmand allows several input files (or parts 
thereof) to be linked into the output file. This ocramand is executed after 
all segments fron the previous input file have been linked. 

If a file name is entered that cannot be opened by the Librarian, a message 
appears and another file name is requested. Also, if a null file name (a 
<ret>) is entered, the Librarian restores the link oode file to its state 
before the N(ew file ccnmand was invoked. 



E(xamine page 



Because the display of the link and output oode files 
(16 segments), the E(xamine page ccnmand displays the 
The E(xamine page ccnmand first determines v»hich file 
contains the page to be examined. 



is limited to c«ie page 
next page of segments. 
(L(ink or O(utput) 
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I E(xamine page: L(ink or 0(utput file? 



The next prcn^ asks for a specific segment number in order to display the 
appropriate page. 



I E(xamine page: Seg#? 



The segment range is from 128 through 255, If a segment number is entered 
and that segment does not exist, the following message appears: 



I Ihere is no page in c ode file containing seg# 



The first blank in the above prorrpt is the code file specified (link or out- 
put), and the second blank is the segment number specified to the previous 
prorpt. 

If a valid segment nurnber is entered, the segment page containing the specified 
segment is displayed. 



M(ultiple link 

The M(ultiple link catmand allows all segments, or all segments less cxie, in 
the link code file to be linked into the output code file at one time. 

After an M is typed to invoke the cannand, the follcMdng prompt line appears: 



I Multiple link: Link A(ll segs, all segs L(ess one or <esc>? 



If an A is entered to link all segments, the following prompts, except the 
one asking for the segment to exclude, appear. Likewise, if an L is entered 
to link all segments from the link file, less one, to the output file, the 
following prompts appear. In that case, the prompt below also appears. 



I Multiple link: Exclude vhat seg# or <esc>? 
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If, for exanple, one segment had already been linked into the output file, 
that segment number vould be the segment number entered to exclude from the 
linkage. 

In both cases, the next prarpt asks if the segment numbers in the link file 
are to be preserved in the output file. 



i Multiple link: Preserve seg numbers across linkage (y,n,<esc>)? 



The Librarian determines v\hether or not the segment numbers of the link code 
segments may be preserved across the linkage. Ihat is, v\hether or not, for 
each link segment being linked, the corresponding segment in the output code 
file is empty. If the segment numbers may not be preserved, a message 
appears and an option to abort the rrultiple linkage is given. If the user 
chooses to continue, the Librarian links segments increasingly frcm the 
first available segment in the output code file. 

If the segment numbers can be preserved, the user has the option to do so. 

If the segment numbers are to be preserved, the Librarian links each segment 
of the link code to the same segment in the output code. If the segment num^ 
bers are not be to preserved, the segments are linked increasingly from the 
first available segment in the output code file. 



InoteI 



If the code kind of the output file has not 
been determined at the time the M(ultiple link 
comraand is invoked, the Librarian sets it to the 
code kind of the link code file. 

Once all prompts are answered, the linking process begins and the following 
message appears vhich shows the segment numbers as they are linked. Once 
all segments are linked, the second message appears. 



I Multiple link: Linking seg# 128. . .129. . .130. . . 
I Multiple link: Linkage ccnplete 



Q(uit 



The Q(uit ocrtriand terminates the Librarian and causes the output file to be 
written. A prompt appears asking for a copyright notice; the copyright no- 
tice is added to the output code file. 
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A(bort 



The A(bort cxninand terminates the Librarian without writing the output cjode 
file. 

Once the Q(uit or A(bort csoiinand is invoked, the system main conraand line 
reappears. If the *SYSTEM. LIBRARY file has been used as the link code file 
and the output code file is to be a new *SYSTEM . LIBRARY file, the old 
version should either be removed, or the name changed if it resides on the 
same disk as the new file. The new file should be given a different name 
until the old version is changed or ronoved; the new file name ^ould then 
be changed to *SYSTEM . LIBRARY in order to be used. 



6.5.2 Error Modification 



The H3 III.0 Operating System Librcurian displays error messages vhen a specified 
cxmnand or response cannot be completed. All input c3ata are checked thoroughly 
to aisure that the ciata make sense in the current context. 
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6.6 LIBRARY MAP 



The LIBMAP program produces a map of a library or code file and lists the 
linker information mintained for each segment of the file. (See 6.7, 
LINKER for additional information.) The program is entered by typing an X 
from the system main catmand line. In response to the file name pronpt, 
LIS4AP is altered. The following display and prompt appear asking for a 
library file name. 



I Library map utility [III.0 H3] 
I enter library name; 



An asterisk (*) entered in response to the above prcnpt indicates 
*SYSTEM. LIBRARY. The ".CDDE" suffix may be suppressed when requesting a 
library or file other than *SYSTEM. LIBRARY by appending a period to the full 
file name. Exairples are given below. 

Entered by User To Reference the File 



* *SYSTEM. LIBRARY 

DIGITAL DIGITAL. CODE 

DIG . LIBRARY. DIG . LIBRARY 

LIBMAP is usually used to list library definitions. The following prcrrpt 
appears for this selection. 



I list linker info table (Y/N)? 



The listing may also include intralibrary symbol references. The prcrrpt for 
this selection is given below: 



1 list referenced itons (Y/N)? 



The next prompt asks for the output file name. 



I map output file name: 
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If an ejctra period is not added at the end of the file name (and the file is 
on a block-structured device), LIHVIZ^ autcmatically appends the suffix 
".TEXT" to the file name. Ihe LIBMAP program supports static and vectored 
128-segment code files. 

Several libraries may be mapped at one time. After the first mapping is 
carpleted, another library files may be mapped if desired. Typing a <ret> 
in response to this prompt terminates the program; the systan main command 
line reappears at the top of the screen. 

Figure 6-5 shows an exanple of a map output file for the system library 
( *SYSTEM. LIBRARY) . 
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LIBRARY MAP FOR *SYS'mi , LIBRARY 



Ss^rnsnt *128s LDNGINT libiTajrv unit 



type fakefib == integer; 

fakedeanax = integer[36j; 

procedure f>vritedec (var ffs fakefib? faked s fakedecsnax? rlengs integer); 
procedure freaddec (var ff: fakefib; var fakeli: integer; 1: integer); 
procedure decops (dummy: integer); 



LCXSIGIOT unit byte reference (2 times) 



Segment #129: SGREENGO library unit 



type months = 0. .12; 
days = 0. .31? 
years = 0. .99? 

procedure hcxne? 
procedure cleareos? 
procedure cleared ? 

procedure date (var m: months? var d: days? var y: years); 
function screenvd.dth: integer? 
function screenheight: integer? 



SGREENGO unit byte reference (0 times) 



Segment #130: MENU library unit 



procedure chain (title: string); 
procedure raenuenable? 
procedure menudisable? 



MENU unrt byte reference (0 tni^s) 

Figure 6-5. Map Output File - *SYSTEM. LIBRARY. (Page 1 of 2) 
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Segment #131: KBDOTUFF library unit 

prcx:edure kbdbatch ( f unit : integer ; kstring : string ) ; 



KBDSTUFF unit byte reference (0 times) 



Segment #132: EEIAYUNI library unit 

type 

serrptr = ^semaphore; 

timedbject = record 

delay_sem 
timed_out 
time_outhi 
time_outlo 
tiiTve_link 
end; 

procedure time_out_delay (seconds: integer; var delaynode : timedbject; 

var sem : semaphore; var timeout : boolean); 

procedure delay (seconds: integer); 

procedure cancel_time_out (var self : timeobject) ; 



DELAYUNI unit byte reference (0 times) 

Figure 6-5. Map Output File - *SYSTHyi. LIBRARY. (Page 2 of 2) 



serrptr; { semaphore to signal to awaken } 
^boolean; { set true if timed out } 
integer; { time to be awaken } 
integ^; { time to be awaken } 
''timedbject { points to next clocknode } 
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6.7 LINKER 



Ihe III.0 Operating System Linker and Library facilities allow the user to: 

• Create libraries of frequently used si±>routines . 

• Divide lengthy programs into modules that can be ccnpiled separately. 

The preccmpiled files are then linked together and can be executed as one file. 

In most cases, the precctrpiled files reside in the file *SYSTEM . LIBRARY and are 
coribined with the current work file. 

The Linker is usually invoked autonatically vhen a user program is executed. In 
some cases, the user invokes the Linker explicitly. 

During the linking process, the Linker reports all segments being linked and all 
external routines being copied into an output file. If the user chooses, the 
Linker produces a map file that contains information relevant to the linking pro- 
cess. 



6.7.1 Source Program Organization 



In writing programs that use preccrrpiled routines or subprograms, the user 
must use them in the calling program. Ihe Compiler then informs the system 
that linking is required before execution. 

The Linker can also link UNITs (groups of routines used together to performs a 
coTiiKXi task) into the program. Any files that reference UNITs and have not yet 
been linked my be ccttipiled and saved, but must be linked together before exec- 
ution. 



6.7.2 Using the Linker 



The Linker is invoked by typing an L for L( inker or an R for R(un from the outer 
level of ccttinands. In the following cases, the Linker must be explicitly invok- 
ed: 



• If the file into >hich the routines are to be linked is not the work 
file. 

• If the external routines to be linked reside in library files other 
than *S^TEM. LIBRARY. 
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an L is entered, the Linker responds with the foil owing prompt. 



I Host file? 



The host file is the file into which the routines or UNITs are to be linked. If 
the work file is to be used, an asterisk arxi a <ret> are altered rather than a 
file name. Any file name altered is automatically appended with the suffix 
".QDEE" by the Linker. The next pronpt asks for the name of the libary file in 
which the UsTITs or external routines reside. 



I Lib file? <code file identifier> <ret> 



Up to eight library file names my be altered. Typing an asterisk and a <ret> 
cause the Linker to reference the *SYSTEM. LIBRARY file. A message reporting 
each library file successfully opened appears on the screen; an example is 
shown below: 



1 Lib file? *<ret> I 

I I 

i Opening *Si!STEM. LIBRARY I 



When all library file names have been altered, the user must type a <ret> to 
proceed. The next pronpt is as fioLlcws: 



I Map file? <file identifier <ret> 



The Linker writes the mp file to the file requested. The mp file contains in- 
formtion relevant to the linking process. Ihless a period is the last letter of 
the file name, the Linker automatically appends the suffix ".TEXT." to the file 
name. 



If a <ret> alone is entered, the mp file option is not selected. 

After all the segments required for linking have been read, a prompt requesting 
a destination file name for the linked code output appears on the screen. 



I Output file? 



Often the destination file is the same as the host file. After a <ret> is typed 
following the output file name, linking begins. 

If a <ret> alone is entered, the output file is placed oi the work file, 

♦SYSTEM >.wRK.cora:. 
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During the linking process, a progress report appears cn the console. All seg- 
ments being linked and all external routines being copied into the output file 
are reported. 

If any required segments or routines are missing or mdefined, linking is aborted 
One of the following messages appears on the screen. 

Unit <identifier> undefined 
Proc <idmtifier> undefined 
Func <identifier> undefined 
Global <identifier> undefined 
Public <ideitifier> undefined 

When using the Run cormand, if the program in the work file contains EXTERIMi 
declarations or uses UNITs, the Linker is automatically invoked after the C3cm- 
piler. Ihe Linker searc±ies the *SYSTEM. LIBRARY file for the routines or UNITs 
specified and atteipts to link them. 

If the routine or UNIT is not in *SYSTEM. LIBRARY, the Linker responds with an 
appropriate message from the previous list. 



6.7.3 Cbnventions and Implementation 



A code file may contain up to 128 segments. Block 0 of the program code file 
contains information r^arding name, kind, relative address, and the length 
of each code segment. Ihis information is called the segtable. The following 
Pascal data structures describe the segment table format, vhich allows vectored 
128-segment code files. 
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const 



firstsysseg 


= 0; 


maxsysseg 


= 127: 


firstuserseg 


= 128 


maxuserseg 


= 255 


maxsubseg 


= 15; 



firstsysseg — The segment # assigned to the first segment in syston lev^ 

( static . . $U- ) program . ( firstsysseg is the minimum seg- 
ment number in system level programs.) 

maxsysseg — The maximum segment # allc^s^ in a system level program. 

firstuserseg — The segment # (minimum) assigned to the first segment in user 
(vectored .. $U+) programs. 

raaxuserseg — The maximum segment # allcv^ in a user program. 

maxsubseg — The maximum index in a segment table page (from 0). 



type 

segsubrange = 0. .raaxsLbseg; 
segrange = firstsysseg. .maxuserseg; 

segkinds = (linked, hostseg, segproc, unitseg, seprtseg); 
codeknds = (static, vectored); 
alpha = packed array [0..7] of char; 

segpage = record 

diskinfo : array [segstbrange] of 
record 
coddLeng, 

oodeaddr ; integer 
end; 

segname ; array [segsubrange] of alpha; 

segkind : array [segsubrange] of segkinds; 

textaddr ; array [segsubrange] of integer; 

seginfo : array [segsubrange] of 

packed record 

segnum ; segrange; 
codeversion : 0. .255 
end; 

notice : string[79]; 

codekind ; codeknds; 

lastseg : segrange; 

lastcodeblk : integer; 

filler ; packed array [1..138] of char 

end { segpage }; 
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segpage — This record is the modified format of segment table "pages" 
inplenented to support 128 segment programs. The record is 
identical to the pre H2 "16 segment naximuan" segment table 
except for the additions of 'codekind*, *lastseg* and 
'lastcodeblk' . This similarity is necessary to allow upward 
ccmpatibil ity of older code files. 

The segment table portions of code files consists of 1 to 8 of these segment 
t^le pages, ^ch page contains information on 16 segments. 



InoteI 



Pre-H2 code files require cxiLy one page because 
they v^re restricted to a maximum of 16 
segments . 

The first segment table page is stored in the first block of all code files. 

The format of the contents of the ooiplete segment table is described by the 
new fields 'codekind', 'lastseg', and 'lastcoddDlk' . These three fields are 
necessary only in the first page but are repeated in si±>sequent pages for the 
sake of consistency. 

A 'codekind' value of 'static' specifies that the code file contains either a 
pre-H2 program or a system level ($U-) program consisting of 1 to 128 segments 
(minbered in the range 0 to 127 — "firstsysseg. .maxsysseg") . 

A 'code-kind' value of 'vectored' specifies that the code file contains a 
user program consisting of 1 to 128 segments (numbered in the range of 128 
to 255 — "firstuserseg. .maxuserseg") . 

The values 'lastseg' and 'lastcod^lk' are used to define the location and num- 
ber of remaining segment table pages. The value of 'lastseg' is the largest 
segment # of the segments contained inthe code file. If this value is in the 
range of 0..15 or 128.. 143, then all segment table information is contained in 
the first page and the value of 'lastcodeblk' is extraneous. If this value is 
in the range 16.. 127 or 143.. 255, then more segment table pages (at least 1 
more) exist in the code file. These remaining pages are stored sequentially 
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starting at the first blcxdc beyond the block specified by 'lastcodeblk' . ('last- 
coddDlk' is the block nuniber of the last block in the code file containing 
code, fbr example, blocks 1 throijgh 'lastcodeblk* are the "code portion" of 
the code file. ) 

The 'lastseg* value absolutely determines the nuriber of segment table pages in 
the file. A code file contains only as many segment table pages as are nec- 
essary. Eor example, if 'lastseg* is 188, segment table pages 5 through 8 are 
not present. Also, each segment table page can contain only a specific groi:p 
of 16 segments. That is, page 5 contains segment information for segments 64 
through 79 (static) or 192 through 207 (vectored) only. Thus, if a code file 
contains only segments 2 and 94, the segment table consists of 6 pages. E^ge 
1 contains segment information for segment 2; pages 2 through 5 are present but 
empty; page 6 contains segment information for segment 94, and pages 7 and 8 
are not present at all . 



InoteI 



The DdDugger stores breakpoint information in 
the 'filler* field of page 1 only, regardless of 
vhether or not other pages are present. 

Figure 6-6 shows the code file represented. 
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Code File 

segment info for segs 0. . 15 or 
segs 128. .143. 



oodekind 

lastseg 

lastcodeblk ( = N ) 



block N < I 

\ I 



block N+1 < I 
(page 2) \ I 

/ r 

block N+2 < I 
(page 3) \ I 

/ I 

block N+3 < I 
(page 4) \ I 

/ I 

block N+4 < 1 

(page 5) \ I 

/ I 

block N45 < I 
(page 6) \ I 

/ I 

block N+6 < I 
(l»ge 7) \ I 

/ ! 

block N+7 < I 
(page 8) \ j 



16 .. 31 

seg page for segs or 

144 .. 159 

32 .. 47 

seg page fbr segs or 

160 .. 175 

48 . . 63 

seg page fbr segs or 

176 .. 191 

64 .. 79 

seg page for segs or 

192 .. 207 

80 .. 95 

seg page for segs or 

208 .. 223 



96 .. Ill 

seg page for segs or 

224 .. 239 

112 .. 127 

seg page for segs or 

240 .. 255 



Figure 6-6. Code File Diagram. 
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CDEEIENG gives the length of the segment in words, and COEEADCSl gives the block 
address. A description of SBGKIND follows ; 



LINKED 


A fully executable code segment. Either all external 
references have been resolved or none w^re present. 


HOSTSEG 


The outer block of a Pascal program if the program 
external references . 


has 


SEGPROC 


A fiscal segment procedure. 




UNTTSEG 


A segment that is the result of compiling a unit, 
will be linked into a host as a new segment. 


It 



If a segment contains unresolved external references, the Compiler generates 
linker information. This information is a series of variable-length records, 
one for each IKIT. routine, or variable that is referenced in but is external 



to the source. Ihe first eight words of 

LIENTRY=^lBCaiD 

NAME: ALPHA; 

CASE LITYPE; LITYPES OF 
UNITREF, 

GLCeREF, 

PUBLi^, 

PRIVREF, 

SEPFREF, 

SEPPREF, 

GONSIREF: 

(FORMAT: CPPC^MAT; 

NFEFS: INTEGER; 

NWORDS: LCRANGE); 
GLCBrai’: 

(HCMEPROC: PROCRANGE; 
ICOFFSET: ICRANGE;) 
PUBLDEF: 

(BASECS’FSET: liCRANGE); 
CONSTDEF: 

(CONSTVAL: INTEGER); 
EXTPROC, EXTFUNC, 

SEPROC, SEPFUNC: 

(SRCPROC: PROCRANGE; 

NPARAMS: INTEGER); 
EOEMARK: 

(NEXTBASELC : ICRANGE ) 

END ( *1 ientry * ) 



each record contain the following: 



{format of LIENTRY; name can be} 
{big byte, or 

{# of references to 1 ientry name} 
{in compiled code segment} 

{size of privates in words} 

{which procedure it is in byte} 
{offset in p-code} 

{compiler-assigned word offset} 

{user's defined value} 



{procedure # in source segment} 
{# of parameters expected} 

{private var allocation info} 



If the LITYPE is caie of the first case variants, a list of code pointers (ref- 
eroices) into the code segment fDllows this portion of the record. Each point- 
er is the absolute byte address within the code segment of a reference to a 
vari^le, IIJIT, or routine named in LIENTRY. These are 8 -word records; but 
only the first NREFS are valid. 
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6.8 P-CODE DISASSEMBLER 



The P-code disassembler inputs a UGSD csDde file and outputs ^milDdlic Pascal 
code (P-code) . Ihe disassoribler is helpful to the user in cptimizing programs 
and provides a source of information ai the subtleties of the UCSD 
iirpl orientation of Pascal . 



6.8.1 Disasseittoly 



The disasseiTbler is invoked by typing an X for execute from the system rrain 
conmand line. In response to the file name prompt, DISAS4 is entered. The 
first pronpt frcxn the program is for an input code file. 

The suffix ".CODE" is assumed and therefore is not required. The code file 
must be one that has been generated by the Pascal Compiler. If a program USES 
a OSriT, the disassembly program includes the UNIT only if the code file has 
been linked. 

Ihe next projrpt is for an output file for the disassetrioled output. Any file 
may be specified. 

Ihe user may decide vhether or not to take control of the disassembly to 
disassemble only selected procedures or disassemble all in the file. 

The Segment Guide displays the segments in the file by name so that a 
particular segment can be selected if the user controls disassembly. The 
Segment Guide is exited by typing Q. Figure 6—7 gives an example of a 
Pascal program and its disassenibly. The P-code disassoribler supports static 
and vectored 128-segment code files. 
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1 


128 


1:D 


1 


(*$L DISASSM.LIST*) 


2 


128 


1:D 


1 


PROGS^ DISASSM; 


3 


128 


1:D 


3 




4 


128 


1:D 


3 


VAR J,I : INTEGER 


5 


128 


1:D 


5 


BUF : ARRAY[0 


6 


128 


1:D 


12 




7 


128 


1:0 


0 


BEGIN 


8 


128 


1:1 


0 


J 


9 


128 


1:1 


5 


I .=J+1; 


10 


128 


1:1 


10 


BUFCJ] :=200; 


11 


128 


1:0 


22 


END. 



Sairple Pascal E^ogram 



mrk POOL: BLOCK # 1 OFFSET IN BLOCK= 0 

offsets given are words firom start of segment 



0:1100 


• 


1 1D00, 


1 0900. 1 








BLOCK # 1 


OFFSET 


IN BLOCK= 


6 


SEGMENT PRQC 


OFFSET# 




HEX cora; 


128 


1 


0(000) 


SLDC 


6 


06 


128 


1 


1(001) 


LSL 


0 


9900 


128 


1 


3(003) 


SPR 




D1 


128 


1 


4(004) 


SLDC 


4 


04 


128 


1 


5(005) 


STL 


2 


A402 


128 


1 


7(007) 


SLDL 


2 


21 


128 


1 


8(008) 


SLDC 


1 


01 


128 


1 


9(009) 


ADI 




A2 


128 


1 


10(00A) 


STL 


1 


A401 


128 


1 


12(00C) 


LEA 


3 


8403 


128 


1 


14(00E) 


SLDL 


2 


21 


128 


1 


15(00F) 


SLDC 


0 


00 


128 


1 


16(010) 


SLDC 


6 


06 


128 


1 


17(011) 


CHK 




CB 


128 


1 


18(012) 


IXA 


1 


D701 


128 


1 


20(014) 


UXJB 


200 


80CB 


128 


1 


22(016) 


STO 




C4 


128 


1 


23(017) 


RPU 


9 


9609 



SaitpLe Program Disassembled 



Figure 6-7. Disassembly Example. 
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6.9 1HE CMjCUIATOR 



Ihe calcuLator program is entered by typing an X for execute from the system 
main ocrnmand line. In response to the file name praipt, CALC is entered. The 
following prorpt appears after the program is executed. 



-> 



This prompt expects a one-line expression in algebraic form as a response. Up 
to 25 different variables are available, each with different values assigned 
using the syntax of the given grammar. Only the first eight letters may be 
used to distinguish between variables. Variables having a value may be used 
as constants. The tswD built-in variables are PI (3.141593) and E (2. 718282). 

No distinction is made between upper and lower case letters. 

The Pascal MOD function (represented by '/' in the CALC program) rounds the 
operands to integers. 



I WARNING 1 



Because this function uses the Pascal definition of 
MOD (Jensen and Wirth, p. 108), the results obtained 
may not be as expected. 

The operand of the factorial FAC function also is rounded to an integer that 
must be between 0 and 33, inclusive, or tlie expression is rejected. 

The ip arrow is used for exponentiation. The answer is calculated by using 
e Y IN (X). Therefore, the operand must be positive or the expression is 
rejected. 

The keyword LASTX is assigned the value of the previous correct expression 
and may be used in the next expression. This capability eliminates the 
necessity for reentering the same ejpression. 

Angles for the TRIG functions must be in RADIANS. Degree- to-radian conversion 
is accomplished by RADANGLE = (Pl/180) * DEGANGLE. 

The calculator program fails on an execution error if an overflow or 
underflow occurs. If this happens, all user-assigned variables and their 
values are lost. Type carriage return inmediately following the prompt 
to leave the calculator. Calculator examples are given in Figure 6-8. 
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-> PI 



3.14159 

-> E 

2.71828 

-> A = (FAC(3)/2) 

3.00000 

-> 3 + 6 

9.00000 

-> A + 6 

9.00000 

-> <RET> lb Old the program 



Figure 6-8. Calculator Exanples. 
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6.10 OOTOXy HIOCEDURE BINDER 



The QOTOXy binder alters the SYSTEM. PASCAL on the default P( refix disk in 
order to create and bind into the system (once only) the GOTOXY procedure 
that enables the syston to ccrtimunicate correctly with a specific video 
terminal . Only system configurations containing a video terminal need 
GOTOXY. The coordinates for the upper lefthand comer of the video screen 
must be X=^, Y=^. 

The H3 operating systen is configured for the class of terminals including 
Soroc IQ120 and the Arrpex Dialog 80. For users with Volker-Craig model 
terminals, switch #1 on the back panel of the terminal may be set to AEM-3 
mode rather than VK404 mode. In AEM-3 mode, the Volker-Craig terminal 
emulates a Soroc IQ120 terminal. 

The GOTOXY binder is entered by typing an X frcm system min conmand line. 
In response to the file name prompt, BINDER is entered. Ihe program then 
proitpts as below: 



I Enter name of file with GOTOXY(x,y; integer) procedure: 



This prorpt requests the name of the code file containing the compiled 
version of the procedure that must be created to suit the needs of the 
particular installation. 

To create "local GOTOXY", examine the example GOTOXY procedure shown in 
Figure 6-9. It is the procedure for doing GOTOXY cursor addressing for the 
Soroc IQ120 terminal . 
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{$R-} 

PROGRAM EXAMPLE 
{GOrOX!«r FOR SOROC IQ120} 

PROCEDURE IQ120)Qr(X, {COLUVIN NUMBER} 

Y: INTEGER); {ROW NUMBER} 

VAR P: PACKED ARRAY[0. .3] OF CHAR; 

BEGIN 

IF Y>23 THEN Y:=23 
EI5E IF Y<0 THEN Y:=0; 

IF X>79 THEN X:=79 
ELSE IF X<0 THEN X:=0; 

P[0]:=GHR(27); 

P[l]:='='; 

P[2]:=CHR(Y+32); 

PC3]:=CHR(X+32); 

UNITWRITE(1, P, 4, , 12) ; 

END; 

BEGIN END. 

Figure 6-9. QOTOXY Procedure Jfor Soroc IQ120 Terminal. 



In order to create a QOTOXY procedure for a specific terminal, a text editor 
must be used. If the system does not have a terminal that supports the 
QOTOXY procedure that v\as shipped with the system, then the user may not use 
the Screen-Oriented Editor because it is dependent cn a correct QOTOXY 
procedure. In this case, YALOE, the line-oriented editor must be used to 
create the new QOTOXY procedure. 

Modi:fy the QOTOXY procedure to meet the specifications of the intended 
terminal, recorpile it, and run BINraK on it. QOTOXY must be the only 
procedure declared within the source program (other than the dumry system 
main program which should be arpty) . The QOTOXY procedure must not neke use 
of any STRING or REAL constants. Also, SETUP must be run cxi the newly 
produced system code file in order for QOTOXY to work properly. 

If the QOTOXY binder gives the error "10 EEM)R IN WRITING OUT SEOyiENT" an 
error occurred vhen it tried to write out the newly bound file. Qieck to 
make sure oiough rocm exists on the diskette for the file. On the H3 release 
at least 106 blocks of open disk space are required to write out the new 
operating system. (A space equal to or greater than SYSTEM . PASCAL must be 
available for this write.) 
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6.11 AUTCMATIC EXEX:uriON 



If a file named SYSTEM. SIARTUP exists an. the boot diskette, the file 
is executed automatically vihen the system is booted or vihenever 
the system is reinitialized (for exaitple, viien I for I(nitialize is typed). 
Exanples of the use of this function are bo send diaracters bo initialize 
the terminal or to autcmatically start a program in an environment v^ere 
the user only kncx«® how to use a particular program, not how to use the 
III • 0 C^>erating System. 
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6.12 PCSmTTING FLOPPY DISKS 



To format a floppy disk, the FORMAT program is executed by typing X from the 
system main ccxmiand line* In response to the file name jarcsipt, is 

entered. The following message and prcnpt appear. 



i Floppy disk formatter Version [H3j 

! 

i Unit ccntaining disk to be formatted <b to quit>: 



After the unit number is entered, the foil owing prcnpts appear cxie at a 
time. The second one does not appear until the first is answered and so 
forth. No <ret> is required at the end of the line. 



I Format single or double density (S or D) ? I 

I Format sin^e or doi±>le sides (S or D) ? 1 

I Format all tracks ( Y or N ) ? I 

I Verify ( Y or N ) ? I 



After responding to all the prarpts, formatting begins and a running count 
of the track nutiber is displayed at the top of the screen. 



I Formatting <track number> 

I Verifying < track number > 



If an N is entered for the "format all tracks" praript above, the following two 
prompts appear, one after the other vhen answered. 



I Enter starting track number 
I Enter final track number 



The twD prcnpts above must be fcllowsd by a <ret>. 

Any errors encountered are displayed in the bottom half of the screen. 
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6.13 CC»IFIGURING WINCHESTER DISKS 



The H3 version of the III.0 Cperating System sijpports Winchester disk drives on 

the ME1600 product line. Because a Winchester disk has consider^ly more space 
than a fLc^:py disk, a Winchester disk may be partitioned in multiple volumes. 

The maximum nutiber of vd lines allcM^ on a Winchester disk is 236. 

The H3 operating system provides fbr the automatic incorporation of a Winchester 
l/O driver if a Winchester disk exists cn the system. Ihe H3 qperating system 
also allows software controlled single-double density selection; however, 
for an ME1600, this feature requires that the floppy disk controller card be 
upgraded to hardware levd B8 or later. Also, on an H3 V^inchester system, a 
volume-to-vdlume transfer between two volumes on a Winchester disk unit 
asks fcr the new name of the destination volume. Ihis feature prevents 
file access ambiguity caused by duplicate volume names. 

For maximum flexibility in performing the partitioning into volumes, each 
Winchester disk has a configuration record cn track 0 vhich describes the 
volume partitioning. A floppy disk may also have a configuration record, 
but a configuration record would normally only be put on a floppy disk for 
a special and unusual purpose. If a floppy disk does not contain a config- 
guration record, the configuration defaults to units 4, 5, and 9-14, as 
floppy disk volumes with no Winchester volumes. 

This general introduction describes how to configure a new Winchester disk. 

After the general discussion, specific descriptions of the WFORMAT, CONFIGURE, 
and BOOIMAKE programs follow, with detailed operational steps for configuring a 
Winchester disk using the programs. 

At boot, the ME1600 first attempts to boot frcrn any floppy disks on line. If 
no floppy disks are on line, the system boots from the ^^^inchester disk. If a 
floppy disk without a boot is cxi line, the system attempts to boot from it. 
However, the lack of a boot cxi the fl.oppy causes booting to fail . 



InoteI 



Care i^ould be taken to assure that no floppy 
disks are csi line when booting from the 
V7inchester disk is desired. 
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with the H3 II 1.0 Operating ^stem, the vclumes c*i a Winchester disk my be 
any unit nuiiber. The boot unit my, therefore, be any unit nurriber, not 
only unit #4. When configuring a V^nchester disk with the GOSIFIQJRE 
program, the Winchester disk should not be unit #4. This reconmendation 
is mde because floppy disks, v^hich have no configuration records, (almost 
all floppy disks are in this state) are mit #4. Ihus, a conflict can arise 
if a Winchester is also unit #4; in that case, the system is unable to read 
the floppy disk. Therefore, to allow the flexibility to read flc^^ disks, 
the Winchester disk should not be unit #4 or #5; preferably a unit number in 
the range 28. .255 should be used.. 

A goieral outline of steps to oonfigure a new unformatted Winchester disk fol- 
lews. The steps are explained in more detail in subsequent subsections. 

1. Boot the system with the H3 system floppy disk. 

2. Execute the WFO^MAT program to format the Winchester disk. As part of 
the formatting operation, the WPCM1AT program writes a configuration 
record to track 0 of the Vtochester disk being formtted. The config- 
uraticn record describes the ph^ical characteristics of the V^nchester 
disk. The foil owing information is the pertinent data for 10 and 40MB 
Winchester Disks. 

• 10 MB Winchester Disk 

2 heads, 512 cylinders, step rate 0 

1024 tracks (2*512) each holding 16 blocks 

1Q< blocks (16*1024) or SMB of usable data space 

• 40 MB Winchester Disk 

8 heads, 512 cylinders, step rate 0 

4096 tracks (8*512) each holding 16 blocks 

6^ blocks (16*4096) or 32MB of usable data space 

3. Execute the (XNFIGURE poDgram to partition the Winchester disk in mul- 
tiple vd lines. The QDNFIGURE program adds this operating system config- 
uration information to the configuration record initially created by the 
WFCS^MAT program. 

4. RdDoot the system so that the newly created configuration record can be 
read into memory by the III.0 Operating System. 

5. Execute the BOOTMAKE program to install a boot on the Winchester disk. 
The codefile BOOT is the bootstrap to be placed cn the Winchester disk 
by BOOTMAKE. 

6. Transfer all files from the H3 system floppy disk to the lowest numbered 
Winchester volime. 

7. Reboot the syston from the vd.nchester disk — NO floppy disk on line. 
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To set up a new H3 Winchester-based operating systen, an H3 system diskette con- 
taining the following codefiles is required: 

moesAAT 

CONFIGURE 

BOOIMAI® 

BOOT 

6.13.1 Ihe WFCRyiAT Program 



The WPCX^T program formats a Winchester disk and places a configuration 
record on track 0 after formatting the disk. This configuration record 
describes such hardware characteristics as number of heads and cylinders. 

In addition, the WPOPMAT program has the capability to map out bad sectors 
if one is detected oi the Winchester disk media. 

To format a Winchester disk, the WFCRMAT program must be run first. The follow^ 
ing steps describe how to run the ^®XM1AT program. 

1. An X (for execute) is entered from the system main canmand line. In res- 
ponse to the file name pratpt, V^PCSMAT is entered. 

2. Ihe following pronpt is displayed: 



*************************************************************************** 
WESIEE^ DIGITAL VJINCHESTER EO?MAT PROGRAM H3 

*************************************ic******ie***i(ic****irk*******ic*********** 

GAUTIOJi IHIS PROGRAM WILL DESTROY ANY DA.TA ALREADY OT 
IHE WINCHESTER IN THE AREA IHAT IS REFORMATTED. 

Do you wL^ to format the Winchester? 



A Y response is entered to format a Winchester disk. If a Y response is 
entered, the Winchester drives on line are displayed. An N response 
causes the program to terminate. 

3. Ihe program displays the Winchester drives that are on line. If nore 
than one drive is on line, the program asks v\hich drive to format 
Ihe number of the V'/inchester drive to format i^ould be entered. 

4. If the disk has been configured for an H3 syst^ previously, the WFORMAT 
program displays a message that a valid configuration record exists cn 
the drive and then asks if it should be retained. Ihis feature is use- 
ful in the case \\here only a particular area on the disk is to be refor- 
matted and the existing configuration is to be retained. 

A Y is altered if the existing configuration record is to be retained. 

An N is entered to generate a new configuration record based on the in- 
formation to be given in response to program prompts. 
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5 . 



If the disk did not have a configuration record previously or if the ex- 
isting record vas discarded in step 4, the program pranpts for information 
regarding the drive. Ihe information necessary as pertains to Vfestern 
Digital Winchester drives currently supported is summarized b^ow for 
reference. 

• Number of heads 

for 10 M bytes: 2<ret> 

for 40 M bytes: 8<ret> 

• Number of cylinders 

Enter: 512<ret> (all Quantum drives have 512 cylinders) 

The program assumes the number of blocks per track to be 16. 

• Step Rate 

Enter: 0<ret> (all Quantum drives can use a step rate of 0) 

6. Ihe WFC^MAT program then calculates the interleave pattern and displays 
it on. the screen. Ihe following prompt line also appears: 



iPorraat E(ntire disk, C(ylinder range, T(rack, Q(uit? 



To format the entire Winchester disk, an E (for entire disk) is altered. 

7. Ihe next protpt asks if the disk format i^uld be verified. Ihe verify 
operation checks for bad blocks and reformats those tracks that have 
bad blocks. Ihis operation also attempts to map out bad blocks. Ihe 
verify operation is normally chosen. Ihe verify prompt is as follows: 



I Veri:fy? » 

If a Y is entered, the formatting and verij^ing proceed as instructed. 

If any errors occur, they are disjiayed. However, no errors i^ould occur 
during normal system operation. 



InoteI 



If any character is typed during the format 
operation, the program is terminated. If the 
program is terminated in this v\ay, no 
configuration record is written. 
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Th0 CXXvFIGJRE PTugirain 



The COiJFIGURE program cfefines Vdnchester or floppy disk unit numbers or changes 
existing unrt nimbers* (A. help fiie jP is avaiiabie in tlie program* 

Typing an H at the top level of catmands causes the help file to be displayed.) 
Only a few vdumes on the Winchester disk should be defined initially; addit- 
ional volumes can be created as needed. 



j NOTE i 



The CXl^FIGURE program does not run on machines with only 64 
kbytes of memory. In order for CX31FIGLIRE to run successfully 
on a Winchester disk, WPCM1AT must have placed a configuration 
record cxi the Winchester disk. 

Ihe CXiNFIGURE program is used to allocate unit numbers to designate either flop- 
py drives or logical partitions on a Winchester disk. This allocation is refer- 
red to as the system ccaifiguration. The operating system uses an internal sys- 
tem ooifiguration record to decide vhich unit number corresponds to v\hich flop- 
py drive or v\hich logical partition on a V^Lnchester disk. Each Winchester 
drive on the system has a ccxifiguration record that describes the physical char- 
acteristics of that disk (the number of cylinders, heads, and blocks per track) 
and the partitioning of the disk into different logical units. 

The III.0 Cperating Systom builds i:p the system configuration record by reading 
the configuration record for each individual drive. The cperating system con- 
bines these records into one record. Tb the cperating syston, the units that 
are logical partitions on a Winchester disk look like floppy disk drives. This 
feature allows one large Winchester disk to act like a number of smaller and 
more usable floppy disk drives. 

The CONFIQJRE program allows the user to manipulate either the system ccxifigur- 
ation record (in system mode) or a configuration record from an individual drive 
(in drives mode). The syston configuration record is the configuration informa- 
tion used by the system. The program maintains tenporary copies, in memoiry, of 
the configuration records from each of the drives. The syston configuration re- 
cord is the combination of the individual configuration records frcm the drives. 
The taiporary copies of the individual configuration records are called work re- 
cords. 

Usually, the user works only with the system ccxifiguration record. The individ- 
ual drive records are automatically created frcm the system configuration record 
vhen it is written out to the drives. 

Only under unusual circunstances would the drive records be individually changed. 
For exanpie, a floppy disk drive record might be changed so that a different 
allocation of unit numbers to floppy drives is used vhen the system is booted 
frcm a particular floppy drive. This change might be because some program that 
is used only occasionally should use a floppy disk instead of a Winchester unit. 



E^ge 6-59 




Ihe fbllcwing steps explain how to run the OONFIGURE program to set ip the sys- 
tem configuration (define blocked units). All Winchester drives to be used must 
have at least the minimal configuration record written by the WEXa^^T program. 

During ccnfiguration, sane Winchester volumes i^ould be defined to correspond to 
the length in blocks of a floppy disk volume. For example, if double-sided 
double-deisity flopf^ disks are used, a tti.nchester volume with 1976 blocks allows 
a vdume-to-volume transfer between the floppy disk and the Winchester disk. 

1. To execute the CONFIGURE program, an X is typed from the systan carmand 
line. In response to the file name prompt, CXNFIGURE is altered. 

2. After a short delay, the following prompt line spears. 



I Configure [system]: E(dit, S(how, R(ead, W(rite, M(ode, G(et, P(ut, H(elp ? I 



If a ? is entered, the additional prOrrpt shown below appears. 



IConfigureCsystan] : L(ist, Z(ap, Q(uit ? 



These oanmands are briefly described in the following paragraphs. 

E(dit — Edit a work record. 

• system mode — Usually, the system configuration record is edited 
because this ocxifiguration results every time the system boots 
from the Winchester disk. 

• drives mode — An individual drive configuration record can be 
edited if the configuration is to be different every time the sys- 
tem boots from a particular floppy drive (different floppy units) 
or if a conflict exists between the ^f.nchester units on a different 
set of drives. 

S(how — Display either the current (the configuration being used by the 
operating system) or the new (the configuration record being created) 
system configuration that would result if the work records in memory 
were actually written to the drives and the i^stem rebooted. 

R(ead — Initialize the work records in program memory, either from the 

current system configuration or from the configuration records on the 
actual drives. 
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The program is autcmatically initialized from the 
drive configuration records ^en the program is 
executed . 

W(rite — Write the configuration record out to the drives. 

9 systm mode — If the system configuration record is v/ritten# 
all Winchester drives receive a configuration record derived 
frcm the new system configuration record. 

• drives mode — Vfriting an individual drive configuration record 
is done only v\ihen the record for tlie individual drive has been 
edited, and the new drive configuration record ^ould actually 
be put on the drive. 

M(ode — Chcinges the mode of interaction. The modes are (1) system and 
(2) drives. The mode is i^wn in square brackets ([system] or 
[drives]) in the main CJO^IGURE connand line. 

The program automatically begins in system mode. In system mode, 
all operations are done cn a work record that reflects vhat the 
actual operating system configuration record will contain. 

In drives mode, the configuration record for each individual 
drive can be changed. In the rare case in vhich a conflict exists 
between the unit number definitions and certain defined units 
(the units become inaccessible to the operating system), the 
drive configuration record can be changed to correct the conflict. 
This unusual case is only likely to lappen if the Winchester drive 
is removed from one computer system and moved to another. 

G(et — Pulls a backup of the work version of the system configuration 
frcm either a file or the current system configuration. 

P(ut — Saves the work version of the system configuration in a file. 
(Serves as a backup version of the system configuration.) 

H(elp — Displays a brief description of the CX3NFIGURE programs and lists 
the various commands. 
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The (xmnands listed on the second prcrrpt line are described below. 



L(ist — Lists either the current or new system configuration (same 
as S(how carmand except for destination of information) to a 
file instead of the console. 

Z(ap — Removes a ccnfiguration record on a selected drive. 

Q(uit — Leaves tlie (XWFIGURE program. 

The ocmTiands described previously often have prompts or related subconnands 
associated with than. The fol lowing paragraphs describe the actions perfonned. 

InoteI 

To shcM a range, such as 1-123, square brackets 
enclose the nurrbers. Ebr exarrple, [1..123] 
denotes tlie numbers between 1 and 123. 
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E(dit — The prcrrpt line is as fiallcws: 



iConfig Edit: P(rint record, modify F(loj^ or W(inchester units, Q(uit, ? | 

m Print record — DispLa^^ the configuration record being edited. 

# MDdi:^ F(loppy or W(inchester mits? 

— Entering an F causes the foil owing additional rrcmpt line to 
appear: 

1 Edit floppy set: A(dd or R(emove units, Q(uit, ? i 

If an A is entered, the fcllcwing pranpt appears: 



1 Add floppy unit C . . ]? 



A unit number is entered in response tD this prompt. The num- 
ber altered is added as a new unit to the defined floppy units. 

If an R is entered, the following prorrpt appears: 



I Remove floppy unit [..]? 



The unit number to be removed from the defined floppy unit is 
entered . 

For both oonnands, A(dd and R(emove, the floppy unit set is dis- 
played. 

— Entering a W causes the fibl lowing additional projtpt line to appear: 



I Edit Winchester set: A(dd, C(hange or R(onove unit numbers, Q(uit, ? 
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If an A is entered, the following prornpt appears; 



I Add Winchester mit C . . ]? 



After the number of the unit to be added to the defined Win- 
chester units is entered, a prcnpt asking for the nunt>er of 
blocks in the unit appears. Cnee the nurrber of blocks is 
entered, the unit is added. 

If a C is entered, the following protrpt appears: 



I Change Vi/inchester unit C . . ]? 



If the unit number Altered is a valid VJinchester unit, the 
following prerrpt appears: 



I New Winchester unit number C . . ]? 



Once the new number is entered, the unit number of the existing 
Winchester unit is changed. 

If an R is entered, the fbllcwing prorrpjt appears: 



I Unit with blocks is the last unit an drive 

I Remove it? 



Units on the ^^inchester disk are removed from the back forward. 
Therefore, the R(emove cctrmand gives details regarding the last 
unit on the drive and asks for verification of removal . Once a 
Yes entered, the last V'fi.nchester unit defined cn the specified 
V/inchester drive is removed. 

S(hcw — The prenpt is as follows: 



I C(urrent system, N(ew system? 



Entering a C causes the current system configuration to be displayed. 
Entering an N causes the following prorrpt line to appear. 
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I Show cxDnfig of New system assuming system on F(loppy or W(inchester, Q(uit, ?1 



If an F is entered, the program prcmpts for the floppy drive number. 
After the number is enters, the system configuration is displayed 
as if the ^stem had booted fran that flojpy drive. 

If an N is entered, the program assumes the new system oi ^'ti.nchester 
drive 0. Drive 0 is assumed because the only Winchester drive that 
can be booted from is drive 0. The system configuration record is 
displayed as if the system had booted from Winchester drive 0. 

R(ead — The following message and prcxipt appear: 



I Record Initialization 1 
! ! 
I Do you want to re-initial ize? I 



After the prcttpt, a \Aarning message is displayed. If a Y is entered, 
the following prorrpt aj^ars: 



I Get coifiguration from D(rives or current S(ystem, Q(uit, ? 



The work records in memory can be reinitialized to be identical with 
either the drive configuration records or the configuration record 
currently being used by the operating system. 

W(rite — The following prorrpt appears; 



I Write out the System configuration? 



If a Y is entered, the cxirr^t system vork record is written to the 
drives . 

M(ode — The following message and prompt appear. 



i In the curreit mode you are working on the system configuration record. 

i 

I Do you wont to cdiange the mode? 



Page 6-65 







Changing the mnode allcws the cjcnfiguration record of an individual 
drive to be changed independent of the system configuration. 

G(et — The fioLlcwing prorrpt appears: 



I Get the system configuration frcm v^at file? I 



This ccmmand retrieves a system configuration that vvqs previously 
P(ut in the specified file. 

P(ut — The following prorrpt appears: 



I Put the system configuration record in v\hat file? 



This ccmmand saves a copy of the current system configuration work 
record in the specified file. 

H(elp — This oorinand displays the help file OONFIGdELP. 



6.13.3 Using BOOIMAKE To Put an H3 Bootstrap On a Winchester Disk 



If a new configuration record las been placed on a Winchester disk and no Win- 
chester units were previously defined, the system must be rebooted so that the 
operating system reads the new configuration record. To put an H3 bootstrap 
on the Winchester disk, the BOOIMAKE program must be executed. Ihe following 
steps describe the program execution. 

1. An X is Qitered from the system ccmmand line. In answer to the prompt 
regarding the file to execute, BOOIMAKE is altered. St>eci:fy the new boot, 
and in response to the code file name prompt, enter BOOT. 

2. Uie program prompts for the unit number on which the bootstrap is to be 
placed. Any unit cai the \'^inchester disk is acc^table; however, the boot- 
strap is always placed on the same location on the \^nchester disk regard- 
less of the specification of a certain unit from which to boot. 

Ihe nutiber of the unit on which the bootstrap is to be placed is entered. 

3. Next, the program asks for the name of the codefile containing the boot- 
strap program. 

Ihe following response should be entered: 

BOOT <ret> 
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4. After a i^ort pause v^ile the bcx>tstrap is processed, a prompt appears 
requesting the memory size of the machine on vhich the bootstrap is to be 
used. 

Ihe following response i^iould be entered; 

128 <ret> 

BOOIMAKE now places the bootstrap on the specified unit. 
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6.14 PATCH 



The PATCH utility prograii allows the user to examine and/or change a block 
or blocks cn disk. This program is useful, for exairple, if a file is 
inadvertently removed frcm the directory but may still be written on. the 
disk. The user can examine all portions of the disk narked as <unused> to 
determine if the data are recoixJed cai the disk. Another typical use for 
PATCH is to \jpdate the directory (nuriber of blocks) on a newly created disk 
that was nade using a volume-to-voliine transfer of a single-sided to 
doihle-sided diskette. The smaller number (988) can be changed in the block 
to the larger number (1976). 

The PATCH program is executed by typing an X from the system main conmand line. 
In response to the file name pronpt, PATCH is entered. 



The first prcxipt line to appear is as follows: 



I Patch [H3]: F(ile, Q(uit 



Entering a Q (for Q(uit) terminates the program. 

Entering an F (for F(ile) causes the following prompt to be displayed; 



i Filename : <cr for unit i/o> 



The file name (including the volume prefix and file type suffix) of the file 
to be patched may be entered. If a (<ret>) is entered, the following prompt 
appears; 



I Unit to patch? 



An I/O unit number can be entered in response to the prompt. (The pound sign 
and colon are not required.) For exanple, a 5 could be entered to specify 
unit #5. Entering a <ret> is useful if the disk (or other device) has no 
directory or has some problon with the directory. 

After either a file name or unit number is entered, the following prompt line 
appears offering a choice of actions. 



I Patch [H3]; G(et, Next, B(ack, F(ile, Q(uit 
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These options are briefly described below: 

• G(et - Ihe Get option allows a specific block to be read. Typing a 
G causes the foil owing prorpt to appear: 



I Block? 



• N(ext “ The Next option "gets" the next block after the current 

block (ascending sequential order). The new block 
number appears on. the prcrpt line in brackets. 

• B(ack - The Back option "gets" the block before the current block 

( descending sequential order ) . The new block number 
is displayed on the prcirpt line in brackets. 

• F(iLe - The File option allows another file to be specified as the 

file to be patched. 

• Q(uit - The Quit option terminates the program. 

Either the Get option (get a block) or the File option (speci:fy a file to patch) 
must be performed first to provide a starting point. 

In response to the prompt for a block number, the block to be examined of 
the specified file or unit is entered. 



I NOTE I 



No range checking is provided on this read. 

If a file name is entered to be patched, the block numbers specified are 
file relative. That is, block 10 is block 10 of the file. If a block number 
greater than the nutiber of blocks in the file is entered, the last block of 
the file is displayed. Likewise, if a unit is specified the Hock number 
given is unit-relative. 

Once the block nutiber is specified, the following prcirpt appears: 



I Patch [H3]: G(et, Next, B(ack, H(ex, M(ixed, F(ile, Q(uit [nnnn] 
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The cuirrent block number appears enclosed in brackets [nnnn], and two addit- 
ional options are available. 

• H(ex - Ihe Hex option causes the block to be displayed entirely 

in hexidecimal characters. 

• M(ixed - The Mixed option causes the block to be displayed in ASCII 

characters vhere possible, and hexidecimal values elsevhere. 

Once the block is displayed in response to either an H or an M, the following 
prorpt line appears across the top of the screen to allow the block to be 
changed. 



I Alter :pad vector 1,5, 3,0 0. .F hex characters, S(tuff, Q(uit [nnnn] 



The vector keys on the terminal control cursor movement. The cursor does 
not move off the data. Typing a hex character changes the character at the 
location of the cursor only if cxie or more of the data positions is changed. 

The S(tuff ooTiTiand displays the following prompt line: 



I Stuff for how many bytes: 



A nuTiber in the range 0 to 512, followed by a <ret>, causes PATCH to accept 
the nuriber. The next prompt line is as follows: 



I Fill with vhat hex pair? 



If hexadecimal, the byte value is entered. The data reappear on the screen 
with the number of bytes specified filled with the value ^cified. Filling 
starts with the location of the cursor. 

To return to the previous prompt line, a Q must be typed to exit the alter 
mode. After a change is made to the block and a Q entered to quit the block 
the prompt line reappears but has the additional ccmnand: P(ut. P(ut is the 

next comraand to be executed to write the changed data back from v\here it was 
read. 

Figure 6-10 gives an example of a block examined through the PATCH program. 

The user comiands and input are ^ded. Garrments are enclosed in braces ({}). 
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Conmand: E(dit,R(un,F(ile,C(cri[p#L(ink,X(ecute,D(ebug? 

it 

Execute vihat file? 

PATCH [H3]: F(ile, Q(uit 



F 

Filename: <cr for iiiit i/o) <rie!fe> 

Unit to patch? 

PATCH [H3]: G(et,N(ext/B(ack,H(eX/M(ixed,F(ile,Q(uit 
Q 

Block:80 

PATCH CH3}: G(et,N(ext,B(ack,H(ex,M(ixed,F(ile,Q(uit [80] 

M 

Alter: pad vector 1,5, 3,0 0. .F hex characters, S (tuff, Q(uit [80] 

{The display below is an approximation of the screen display of block 80.} 
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PATCH [H3]: G(et,N(ext,B(ack,H(ex,M(ixed,F(ile,Q(uit [80] 



Figure 6-10. Using PATCH to Examine a Block. 
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6.15 DEBUGGER 



The DEBUGGER may be used to debug user programs running on the operating 
system or to ddDug the operating system itself. EEBUGGER, when invoked, 
may insert or delete breakpoints in the work file or may break at 
brealqxDints in the work file. 

Use of EEBUGGER requires femiliarity with the UCSD III.0 Cperating System 
and the Cdtpiler. Often a caipiler-generated listing of the program being 
ddDugged is necessary. Additionally, a disassembly listing may be required 
so that brea]q»ints can be inserted with reference to segment nurtber, 
procedure niirber, and offset within a procedure. 

DEBUGGER is divided into tiffo major ccrrponents: (1) the BrealqxDint Handler 

and (2) the Debugger. The Brea3qx)int Handler is invoked from the systan 
main canmand line. The DdDugger is invoked vyhen a brea]qx>int is encountered 
in an executing work file and/or When a run-time error occurs in any 
program. The Breakpoint Handler and the two invocations of the Debugger 
are described in the following sibsections . 



6.15.1 Ihe Breakpoint Handler 



To invoke the BreaJqxaint Handler, enter D (for D(dDug) from tlie system main 
command line: 



I Command: E(dit, R(un, F(ile, C(onp, L(ink, X(ecute, D(ebug? ® 



If a code file does not currently exist, the system compiles the wark file 
(as if R(un had been entered). 

The following BreaJqxaint Handler prompt then appears: 



I Ddaug: R(esume, I(nsert, L(ist, C(lear breakpoints, 'Q(uit ? (2) 



The following list of commands explains the Breakpoint Handler options and 
shows further prompts as options are selected. 
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R(esume ODntinues running the user program. 

I(nsert Inserts caie or more brealqxDints (the maximum number of 
breakpoints that can be inserted is 10; that is, max 
nuntoer = 10). For each brea3q»int, the BrealqxDint 
handler protrpts: 



1 Enter segment number: (enter nunber in decimal); (3) 1 

1 Enter procedure noriber: 1 

1 Enter procedure IPC: 1 




Validity checking is done by the Debugger for each value 
to assure that a breakpoint is placed over a P-code 
operator. This checking is done because a brealqxjint 
is a P-code operator (RPU) and must replace an operator 
not an operand. If the insertion is successful, infor- 
mation about the brea3qx)int is displayed. The informa- 
tion displayed is shoMi below. 


1 Index: S# 


<seg> P# <proc> IPG <proc-ipc> (in hex) Op-code <op>( in hex) I 




After the information about cane breakpoint is displayed, 
the Breakpoint Handler prorpts: 


1 Insert another brealqxDint ? (Y or N) I 




A "Y" reply goes back to @ , and a "N" reply stops 
the insertion and goes back to (5) . 


L(ist 


Lists all breakpoints or alternatively, displays "No 
breakpoints", vhich then returns to , the main 

Brea]^int Handler ocrtinand line. 


C(lear 


dears brea]q»ints. The Breakpoint Handler parcnpts: 


1a( 11, S(ingl' 


e ? i 



An "A" (for A(11) reply dears all breakpoints and 
displays the same information as for an inserted 
brea3q»int for each brea]qx5int removed. 
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An "S'* (for S (ingle) reply clears cnLy a single 
brea]qx3int. The Debiigger, hoover, lists all 
brea]q»ints then prcrapts: 



jdear brea]q»int with index = (enter selected index ^ i 

j nuriber, as listed) \ 



After the number is Altered if the clearing is 
successful; the Brea3«5XDint Handler prcnpts; 



ICbntinue clearing ? (Y or N) 



A "Y" reply takes the user back to @ . An "N" reply 
takes the user back to (J) . 

Q(uit Returns control to the operating system (takes user 

back to the Outer Level ccrtinand line) . 



The breakpoint information is kept in block zero of the code file. The 
layout of block zero is shown below: 



block01ayout= record 

otherdata: array i0,.224j of integer; 
bkcntrl : packed record 

bkcnt: 0. .maxbrk {breakpoint count] 
end; 

bkinfar ; array [0..maxindx] of {bp info array] 
packed record 

relsblk,saveop,opseg;Opproc: byte; 
opsipc: integer; 
oppipc: integer; 
end; 

end; 



v^ere 

maxbrk {max. nuntoer of brealqxoint] = 10; 
maxindx {iiax. index value] = maxbrk-l= 9. 
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6.15.2 The Debugger 



The Debugger is either (1) called when a brea]^int is executed or (2) 
called vhen a run-tiine error occurs. 



DEBUGGER (Brea3qx>int C3all) 

When a breakpoint is executed, EEBUQGER is invoked, and the following message 
and information are displayed: 



I Prograinned break-point I 

Is# <seg.mjtiber>, P# <proc. number >, I# <proc-ipc> I 



Then, the Debugger portion of EEBUQGER is invoked, the Status (see S(tatus 
corrmand option) is displayed, and the Ddougger acrtinand prompt is shown. 



I Debugger; R(esume, D(uip, B(reakpoint, X(amine, S(tatus, Q(uit ? @ I 



The following list discusses each of the D^ugger Gamnand options. 

R(esume Continues running the work file. 

D(ijtp Dumps the oitire irenory into a user specified file that 

may be placed on any vdiine. If the dump is to disk and 
insufficient room exists, the D^ugger creates a partial 
menory dump if user requested. A memory dump from 
addresses 0-7FFF is performed on. a machine with 64K bytes 
of memory. Dor a machine with 128K bytes of memory, 
addresses 0-FBFF are dinped. The Debugger pronpts as below: 



I Input your Notice; (max size= 80 char.) 



This notice (or <space>) is saved in block 0 of the 
diirp file along with the foil owing information; 

• The contents of registers -3.. 13. 

• The run-time error code that caused D^ugger invocation. 

• The segment#, proc#, and the IPC (Instruction Program Count- 
er) of the corresponding opcode. 

• The date (as displayed at boot time) . 
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The recoird describing this durrped information is as 
follcws: 

dun^ayout = record 

regs: array[0,,16] of integer; 
errcode; integer; 
seg: integer; 
proc: integer; 
ipc: integer; 
date: daterec; { 1 v^rord } 
filler: array[0. .193] of integer; 
notice: packed array[0..79] of char; 
end; 

Tlie ineiTiory output nay be viewed as decimal, hex, 
binary, ASCII, or unsigned decimal. Also, the 
memory dunp can be stopped by typing any character. 

B(reakpoint Ocntrol goes to the Breakpoint Piandler. Very much 
like I(nsert of Brea3qx>int Handler except: 

• The code file in memory is updated 
correspondingly for I(nsert and C(lear. 

• Q(uit returns to (5), instead of 

X(amine Goes to the nmiory X(amine mode. The following ccmraand 

prcnpt line appears: 



I C(hain, 0(ffset, M(emory, re-D(isplay, A(lter, 
I S(tatus, R(adix, T(asks, output F(ile, Q(uit? 



The following list gives a sunmary of these ccnmands. 

C(hain Moves the addressing environment pointer (current MP) 

along <^amic or static links. Ihe following prompt 
appears : 



|S(tatic, D(ynamic ? 



If D (for D(ynamic) is entered, the MP pointer 
follows the dynamic link chain field in the mark 
stack control word. 

If S (for S(tatic) is the reply, the MP pointer 
follOA?s the -static link chain of the mark 
stack control word. 
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The Debugger then displays either the static or 
dynamic chain of nark stack control vords. An 
exan^ie display for dynamic chaining is as 
follows; 

Dynamic Calling Chain for This Tai^ 



1) S# 8, P# 68, I# 10 

2) S# 8, P# 1, I# 68 

3) S# 1, P# 1, I# 11 

The display shows the chain of mark stack control 
vords displaying the segment number, procedure nunber, 
arid IPC. The Debugger requests the nark stack nunber 
to change context. Bitering a 0 keeps the current 
mark stack context. 

0(ffset Displays the contents of memory at a word offset 

from the current MP (see C(hain ). Offset allows 
access of values of variables because variables are 
allocated at offsets from a nark stack. The offset 
corresponds to the variable offsets assigned by 
the Coipiler. 

This conmand displays the foLlcwing pronpts (the 
Debi:gger pronpts if the input data are required 
in hex); 



|Offset= { enter the offset value } 

lLength= { enter ninber of VO^DS to be displayed } 



The requested words are then displayed as below; 

<base address> offset ; 1 

<val>,<val>, for the length requested 

re--D(isplay Displays the previous 0(ffset or M(emory just 

displayed in hex, decimal, ASCII, binary, or unsigned 
decimal. This mode is used for future outputs 
of M(eraory or 0(ffset until either R(adix or other 
re-D(isplayed are entered. 
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A(lter 



Modifies one word in memory. The Debugger displays 
the current radix and prompts: 



j Enter address: ( in current radix ) 



After the address is entered, the Debugger displays 
the foil owing pronpt and then asks how many words at 
the starting address should have the new value. 



I was: xxxx Change to: zzzz 



M(emory Displays the contents of memory from the start address 

to the Old address. Addresses are in words. The 
Debugger memory prompts are below. 



I Start address = | 

I End address = j 



S(tatus Displays the envirorment status. (See discussion 

of S(tatus as described for the Debugger . ) 

R(adix S^Titches the current radix mode from decimal (the 

default) to hexadecimal or vice versa. The following 
pronpt is displayed: 



I Radix switched from Decimal to Hex (or Hex to Decimal ) . 



I NOTE 1 



This option is alvays reset to decimal 
vhen the D^ugger is first invoked 
(because of a run-time error) . 
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T(asks Displays tlie active user tasks. An example 

display is ^own belcw: 

Currently Active Tasks 



Main task; 1) S# 8, P# 68, I# 10 

The DdDugger then requests the task number to change 
context. With a new context selected, c(haining may 
be done cxi the new task. Entering a zero keeps the 
context at the present task vAiere the segment number, 
procedure nuntoer, and IPC of each task are displayed. 

output F(ile Allows D^ugger output to be directed to a 
file other than the OOSISOLE; . 

R(esume Continues running the work file. 

Q(uit Goes back to the Ddougger coninand line @ . 

I NOTE I 



Because of the mschanism used to return 
from a brealqxDint, the active brealqxoint 
in memory is r^laced by the original P-code 
and is restored only vshen another brealqxoint 
is encountered. Hierefore, a single brea]q»int 
is NOT restored until another one is encountered; 
however, it is still preserved in the code file. 

S(tatus Displays the aivironment status. Ihe user program 

MP is the pointer to the MSCW (mark stack ccntrol word) 
of the user program at the time the brea3qx)int occurred. 

The current MP is the pointer to the current activiation 
record as performed the C(hain ccrnmand. (See C(hain 
connand. ) 



I NOTE I 



At the first call of the D^ugger, 
user program MP=current MP. 
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The display of the current status is in the form ^own 
below. The addresses belov are i^own in current Radix 



Q)uit 



Mdress of tib : 0040 




ready queue 


av22 


system segmait vector 


007F 


priority 


037F 


splov 


632E 


spupr 


D3C0 


sp 


A514 


np 


A514 


lop 


D39E 


ipc 


01C3 


segbase 


E50F 


hangp 


A51E 


ioresult 


0300 


segment vector 


NIL 


maintask 


TRUE 


startmscv/ 


D3CE 


User np 


A55F [8,68] 


User l:p 


D3® [1,1] 


Current np 


A55F [8,68] 



Returns to , the Outer Oannand level . 
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DEBUGGER (Run-Time Error Invocation) 

The D^ugger is called by any run-time error other than a stack overflew 
error. Ihe fbl lowing prompt appears: 



|D(dDug or lype <space> to continue 



If the response is to type <space>, the usual path of execution for an 
error is foil owed. That is, the system reinitializes itself. 

If D (for D(dDug) is entered, the DdDugger is called, and the Debugger 
conmand line @ appears. 

If adequate space is not available to load the Debugger (about 60 words in 
the stack space and 6000 words on the heap) , the syston responds : 



I Not enough room for Debugger 



If the Debugger is invoked as a result of a run-time error, the invocation 
of Breal^point Handler is not allo^ft^ because a program other than the 
work file may have been executed from the Outer Level commands. 
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6.15.3 Accessing User Program Variables Fran the D^u^ger 



In order to access variables declared in a user program, a ccrrpiler pro- 
duced listing is required. Refer to Figure 6-11 for a ccmpiler produced 
listing of an example program. Refer to Section 5.4.3 for a description 
of a conpiler produced listing. 



1 


128 


1:D 


1 


{$L+} 


2 


128 


1:D 


1 


program test; 


3 


128 


1:D 


1 


var i: integer; 


4 


128 


1:D 


2 


di: char; 


5 


128 


1:D 


3 


s: string[3]; 


6 


128 


1:D 


5 


k: integer; 


7 


128 


1:D 


6 




8 


128 


2:D 


1 


procedure p; 


9 


128 


2:D 


1 


var j: integer; 


10 


128 


2:D 


2 


dhl: char; 


11 


128 


2:D 


3 


11: integer 


12 


128 


2:0 


0 


begin 


13 


128 


2:1 


0 


j ;= 21; 


14 


128 


2:1 


3 


c±il := 'I'; 


15 


128 


2:1 


7 


11 := 55; 


16 


128 


2:0 


11 


end; 


17 


128 


2:0 


14 




18 


128 


1:0 


0 begin 


19 


128 


1:1 


0 


i := 0; 


20 


128 


1:1 


7 


ch := 'A'; 


21 


128 


1:1 


11 


s := 


22 


128 


1:1 


19 


k := 44; 


23 


128 


1:1 


23 


p; 


24 


128 


1:0 


25 


end. 



Figure 6-11. Oorpiler Produced Listing. 
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In this program assume the I(nse 2 rt carmand in the Breakhandler has been 
used to insert a brea]qx5int in segment 128, procedure 2, IPC 11, vhich is 
after the last statement in procedure P. Mien this breal^xDint is oicountered 
during execution of the program, the paxigram stops, and the Debugger displays 
the fiol loving; 



Programmed break-point 
S# 128, P# 2, I# 12 
Deb 

Op-code; 150 (96) 

DdDugger; R(esume, D(unp, B(reakpoint, X(amine, S(tatus, Q(uit 



If an X for X( amine is typed, the Debugger displays the fiol loving prorpt; 



|C(hain, 0(ffset, M(emory, re-D(isp0.ay, A(lter I 

|S(tatus, R(adix, T(asks, output F(ile, Q(uit I 



The C(hain and 0(ffset cannands are used to access user variables. The C(hain 
command moves through addressing envirorments established by procedure calls. 
Ihe 0(ffset ocmmand accesses variables as determined by the rightmost nuirbers 
in the declaration parts of the oorpiler produced listing. In the above exarm- 
pie, in the procedure Paddressing envirorment for offset 1 and length 3, the 
DdDugger displays; 



-11436 offset; 1 
21 73 55 

The value -11436 is the tsvo's carpi ement representation of the memory address 
Miere the program variables in this addressing environment start. Variable 
J is at offset 1; CHI is at offset 2; and LL is at offset 3. 

Ihe C(hain carmand can be used to change the addressing oivironment to the 
outer block of the exanpLe program. To make this change, type C(hain; the 
Debugger then displays the following prompt line. 



I S(tatic, D(ynamic ? 



If D(ynamic is entered, the D^ugger prorpts; 



DYNAMIC GALLING CHAIN FOR IHIS TASK 



1) S# 128, P# 2, I# 12 

2) S# 128, P# 1, I# 25 

Enter number beside procedure to look at (0 to leave as is); 
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If a 2 is entered, the environment is noved to the outer block. Typing 0(ffset 
allows the values of the variables in the outer block to be examined, as ^own 
below: 



I Offset = 1 

1 Length = 5 

i -11429 offset: 1 

1 0 65 30723 31353 44 



If re-D(isplay is Altered, the following proipt appears: 



1 mode: 



In response to the "mode:" prcjipt, eiter A{SCII. The follcwing display appears: 



I ^0 ^0 A^0 ^0x yz , ^0 





These values correspond to the variables declared in the outer block of the pro- 
gram. 



iNOTEl 



When Pascal program vari^les are declared in a 
rated by oamas (for exanple, VAR I, J, K, L: INTEGER), 
the offsets are assigned in reverse order. That is, 
variable L is at offset 1; K is at offset 2; J is at 
offset 3; and I is at offset 4. 
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6.16 COPY 



Ihe COPY utility program runs as a low priority background task and allow® 
file transfers betvjeen any source and destination files vhile the system 
is used in a normal manner for other vork. A canrion use for the COPY program 
is, for example, to list files to a printer v\hile using the system for other 
work* 

To execute COPY, an X is altered frcsn the system main cormarKl line; the fils 
name COPY is entered in response to the file name prompt. 

COPY signals a copier task semaphore v\hich starts the copier task vshich 
prcnpts for the source and destination file names for tlie file transfer. If 
a null string is entered either for the source or destination, the background 
copy aborts. 

The COPY program my also be used to terroinate a copy in the middle of its 
performance. That is, if the COPY program is executed v\hile the copier task 
is running, the COPY program displays the following: 



I Copier Busy Type <space> to continue, K(ill to terminate 



Entering a space causes the copier task to continue; entering a K causes the 
copier task to terminate. 

The foL loving restrictions apply to the use of COPY: 

• The source and destination copier task files ^ould not be removed 
v>hen the copier task is active. Uhpredictable results occur. 

• The Filer cannot crunch the vdune v\hen the copier task is active on 
the vdiine to be crunched. 

• If a run-time error occurs during copier task activity, the copier 
task ccaitinues to be active. Hov®ver, if the system is reinitialized 
(by pressing Reset), the copier task terminates. 
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7. 



E5VSGAL PROGRAMMU^G CONSIDERATIONS 



Many aspects of the Vfestem Digital UCSD Enseal 111*0 Operating System 
influence hew a program should be written to run most efficiently on a 
1600 Series SuperMicro Genputer System. These aspects are described in 
this chapter of the manual. 

This chapter describes the following topics: 

• Introduction to the 1 1 1.0 Operating Syston 

• Intrinsic s 

• Segments 

• LinJeages 

• System Library 

• UCSD Pascal Enhancements 
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7.1 INTRODUCTION TO IHE III.0 OPERATING SYSTEM 



The H3 III.0 C|5erating System includes autcmatic boot of either single- 
or double-density diskettes. The SB1600 systems automatically try both 
densities vhen booted with a diskette - regardless of the switch setting. 
The ME1600 systems also provide the autcmatic density feature if the fLcppy 
disk caitroller board is level B8 or later. In addition, diskettes with 
different densities may be freely exchanged during normal operation. 

This operating system also supports Winchester disk drives (10 and 40MB) 
on the ME1600 series corputer systems. 

The H3 III.0 Operating System offers protection during diskette removal 
so that the correct diskette is on line during loading of overlayable code 
segments. If the boot diskette is not on line when required, the operating 
systetn prorpts as below: 



I Insert 0SH3 in drive 4. Type <space> vhen ready or <esc> to abort. 



If the diskette with a user program is not on line, the operating system 
prompts as below: 



I Insert PROGE^ diskette in drive _. Type <space> v\hen ready or <esc> to abort! 



The correct drive number is displayed in the prcnpt. Typing a space with 
the correct diskette on line causes the required code segment to be loaded. 
For exanple, removing the system diskette during editing does not cause 
the system to hang. 

The following sections discuss aspects of software control of the III.0 
Operating ^stem. Topics covered include code file representation, program 
execution, operating system structure, bootstrapping of the operating system, 
concurrent task (process) representation, and task control primitives. 
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7.1.1 Operating System Structure 



The Pascal Ocxtpiler emits code that runs directly cai the WD9000 micro- 
processor. The Compiler, Screen Editor, Operating Syston, and all utilities 
are written in Pascal and use this instruction set. 

Figure 7-1 is a j^eleton version of the III.0 Operating System, a large 
Pascal program. This sit)section describes the structure and ccnponent parts 
of the program cn the UCSD Pascal system. 



program pascal system; 

var sysccm : sysccmrec; 
ch : char; 

segment procedure userprog; forward; 
segment procedure syscode; forward; 
segment procedure cspcode; forvard; 

segment procedure userprog; 

begin 



end; 

segment procedure syscode; 

segmoit procedure printerror; 
begin 



end; 



Figure 7-1. Structure of III.0 Operating ^stem. (Continued on next page) 
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segment procedure initialize; 
begin 



end; 



segment procedure getcmd; 
begin 
repeat 

case ch of 
'e'; editor; 
■f: filer; 

'1': linker; 

'x': execute; 

'c': ccrrpiler; 

• • • 

end { case } 
until f al se ; 
end; 

begin { syscode } 
initialize; 
getcmd; 

end { syscode }; 

segment procedure cspcode; 
begin 
ioinit; 
syscode; 
end; 

begin (* pascal system *) 
cspcode; 

end. 



Figure 7-1. Structure of the III.0 Operating System. (Continuation) 



If this skeleton version v^re expanded to the ccmplete Pascal system, it vould 
consist of several thousand lines of Pascal and ccmpile to more than 40,000 
bytes of code. 
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Itie 1 1 1.0 Operating System cxDnsists of a code file containing several 
segments and cperating ^^tem tables. (Segments are discussed in a 
follcwing subsection. ) Seme segments of the cperating system are always 
resident in main memory; other segments are resident canly when necessary 
and are overlaid by other code \\hen not necessary. 

Ihe segments of the III.0 Cperating System that are always resident are; 
segment 0, R^SGALSYSTEM ; segment 2, SYSCDEE; and segment 3, CSPCOOE. I'Jhen 
a user program executes, only segments 0, 2, and 3 are resident, v\hich 
leaves approximately 21,000 words of memory available c*i a 64K byte s^^tem. 
Segments 4, PRINTERRCR; 5, INITIALIZE; and 6, GETCMD are overlaid as 
necessary. The III.0 Cperating ^stem also uses segments 16 to 30 for such 
things as the Debugger, Winchester l/O drivers, and floppy disk l/o driver. 

The Compiler, Screen-Oriented Editor, and Filer are large programs that 
have their cwn code segments but that are called by the cperating ^stem. 
When a program executes, memory usage consists of in-core code segments 
of the program plus the resident code segments and system tables of the 
operating system. When the Oatpiler is loaded into memory in nonswajping 
mode, approximat^y 1500 words are available for use as symbol table space. 
In swapping mode, this figure increases to 3600 words. When the Editor is 
loaded in manory, approximately 7700 words are available for text file 
editing. When the Filer is loaded in memory, about 6300 words are 
available as buffer space. These numbers assume a 64K byte system. For a 
128K byte system, approximately 32000 words should be added. 



Segments 



Because UCSD Pascal has been extended so that a programner can explicitly 
partition a program into segments, only seme segments need be resident in 
main memory at a time. The syntax of this extension is i^own in Figure 7-2. 
(Any syntactic cbjects not explicitly defined in Figure 7-2 retain their 
standard interpretation as defined by Jensen & V7irth: Pascal User Manual 
and Report. ) 
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<program> ::= <program heading> <segraent block> . 

< segment block> ;:= <labeL declaration part> 

<constant declaration part.> <type definition part> 

< variable declaration part> <segment declaration part> 

< segment body> 

<segment declaration part> ::= {<segment declaration>} 

< segment declaration part> ::= SEGMENT <procedure heading > 

< segment block>; I SEGMENT < function heading > 

< segment block>; 

<segment body> ::= <procedure and function declaration part> 
< statement part> 



Figure 7-2. Segment Declaration Syntax. 



Segment declaration syntax (Figure 7-2) requires that all nested 
segments be declared before the ordinary procedures or functions of the 
segment body. Thus, a code segment can be canpleteLy generated before 
processing of code begins for the next segment. This sequence is not a 
functional limitation, because fbrv^d declarations can be used to allow 
nested segments to reference procedures in an outer segment body. Similarly, 
segment procedures and functions can themselves be declared fiarward. 

Segmenting a program does not change its meaning in any fundamental sense. 

Vlhen a segment is called, the operating system checks to see if it is present 
in memory because of a previous invocation. If the segment is resident, con- 
trol is transferred and execution proceeds; if not, the appropriate code seg- 
ment must be loaded from disk before the transfer of control takes place. When 
no more active invocations of the segment exist, its code is removed frcm mem- 
ory. Clearly, a program ^ould be segmented in such a vay that (nonrecursive) 
segment calls are infrequent; otherwise, much time could be lost in unproduc- 
tive thrashing (particularly on a system with low performance disk) . 



Segment Dictionary 



The code file of the III.0 Cperating System is a sequence of code segments 
preceded by a segment dictionary. Cbde segments consist of a sequence of 
blocks, a 512-byte disk allocation quantum, and each code segment begins co 
a block boundary. The ordering (from Ic^ address to high address) is 
determined by the order that one encounters segment procedure bodies in 
passing through the operating system program. 
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The segment dictionary in the first block of a code file contains an entry 
for each code segment in the file. The entry includes the disk location and 
size (in vords) for the segment. The disk location is given as relative to 
the beginning of the segment dictionary (vhich is also the beginning of the 
code file) and is given in number of blocks. This information is kept in the 
segment vector during the execution of the code file and is used in the 
loading of nonpresent segments vhen they are needed. Figure 7-3 details the 
layout of the table and ^hcMs representative contents for the Pascal system 
code file. 
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Figure 7-3. The Segment Dictionary. 
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Code Segment 



A code segment ccntains the code for the body of each of its procedures, 
including the segment procedure itself. Figure 7-4 is a detailed diagram 
of a code segment. Each procedure of a code segment is assigned a 
procedure noriber, starting at 1 for the segment procedure, and ranging as 
high as 255. 

All references to a procedure are made by its number. Translation from 
procedure niiriber to location in the code segment is accomplished with the 
procedure dictionary at the end of the segment. This dictionary is an array 
indexed by the procedure number. Each array element is a segment base pointer 
to the code fbr the corresponding procedure. Because zero is not a valid 
procedure nuriber, the zero entry of the dictionary is used to store the 
segment nuriber (even byte) and number of procedures (odd byte). The outer 
block code is generated and appears last. 
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Figure 7-4. A Code Segment. 
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A more detailed diagram of a single procedure code section is seen in Figure 
7-5. It consists of twD parts: the procedure code itself and a table of 
attributes of the procedure. These attributes are as follows: 

COtlSTANr POOL: The oorpiler allocates the constants for each procedure 
here. 

EXIT IC: This is a segment-base-reLative byte pointer to the beginning 
of the block of procedure instructions v^hich must be executed to 
terminate the procedure properly. 

DATA SEQ^IEl'n' SIZE: The data size is the size of the procedure data space 
(parameters and local variables) in wards, excluding the markstack 
size. 



high addresses 




(exit code) 



Procedure 

Oode 



Data Size 
Exit IC 



Cbnstant Pool 



< 



1 

I Procedure 
I Dictionary 
I Pointer 



lav addresses 



Figure 7-5. Procedure Code Section. 
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Figure 7-6 is a snapshot of system memory during the execution of a call to 
procedure GETCMD, vyhich is the carmand processor of the cperating systan. 
SYSCCM serves as a connunications area between the bootstrap and the 
operating system. The operating system tables ccxisist of the TIB (task 
information tlock) and the segment vector, vhich is an array of information 
about active program segments. The Pascal heap is next in the memory layout; 
it grows toward high memory. The single stack growing down from high memory 
is used for 3 types of items: 1) temporary storage needed during expression 
evaluation; 2) a data segment containing local variables and parameters for 
each procedure activation; and 3) a code segment for each active segment 
procedure * 



high addresses 



Code Segment 0 



Code Segment 2 

cspcora: 



irarkstack 



Code Segment 3 
SYSCOBE 



marks tack 



Code Segment 6 
GETCMD 



markstack 



<Available Memory > 



HEAP 



Operating ^stem Tables 
and 

SYSCCM 



Internjpt Vectors 



lew addresses 



Figure 7-6. ^stan Memory During Cperating System Execution. 
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consider the status of operations just before a procedure call . 

Conceptually, five registers point to locations in memory: 

• SI3VCK POINTER (SP) Points to the current top of 

the stack. 

• iyp\RK SIACK POINTER(MP) Points to the "topmost" mark- 

stack in the stack, (remember 
that the stack grows down) . 

• SEOIENT POINTER (SEGB) Points to the base of the code 

for the currently active 
segment procedure. 

• INSTRUCTION PROGRAM COUNTER (IPC) Contains the byte offset from 

the base of the code segment of 
the next instruction to be 
executed . 

• (SPLOfr'7) Points to the current top of 

the heap and also serves as 
the stack limit pointer. 

When a segment procedure is called, its code segment is loaded on. the stack. 
The data segment is built cxi top of the stack. Figure 7-7 is a diagram of 
a data segment. 




— > local variables 



— > markstack 



Figure 7-7. A Eata Segment. 
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In the upper portion of the data segment, space is allocated for variables 
local to the new procedure. 



In the lower portion of the data segment is a "markstack". When a call to 
any procedure is made, the current values of the psei»davariables, vhich 
characterize the operating envirorment of the calling procedure, are stored 
in the markstack of the called procedure. This action is so that the 
execution state may be restored to precall conditions vhen control is 
returned to the calling piocedure. 



For exanple, a call causes ccxiditions in the calling procedure before the 
call to be stored in the markstack in the following manner: 

Markstack DyNamic link (MSDYNL) < — MP 
" " IPC(MSIPC) <— IPC 

*' " SEGhient Pointer (MSSBG) <— SEGB 

The Pascal declaration for a "markstack" is: 



TYPE MSCW = PACKED RECCED { MARK STACK CONTROL } 



MSSTAT: MSCM>; 
MSDYNL: MSCtVP 
MSIPC: INTEGER; 
MSSEG: BYTE; 
MSFLAG: BYTE 
END {MSCW }; 



{ LEXICAL PARENT POINTER } 

{ PTR TO CALLER'S MSG7 } 

{ BYTE INX IN RETRN CODE SEG } 
{ SEG # OF CALLER COIE } 

{ CURRENTLY UNUSED } 



In addition, a Static Link field becones a pointer to the data segment of the 
lexical parent of the called procedure. In particular, it points to the 
Static Link field of the narkstack of the parent. After the building of the 
data segment, new values fbr IPC, SEGB, SP, and MP are established. 
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7.1.2 Ihe Bootstrap Sequence 



Itie bootstrap sequence is initiated viienever the RESET button is pushed. 
Figure 7-8 (2 pages) is a fLcwchart describing the microcode/ software 
instructions that are executed in order to load in and start the execution of 
the operating system. 




Figure 7-8. Bootstrap Microcode/Sbftware Instruction. (1 of 2) 
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*THE CURRENT TASK POINTER POINTS AT THE TASK INFORMATION BLOCK (TIB), 
THE LAYOUT OF THE TIB IS AS FOLLOWS; 

TIB = RECORD (TASK INFORMATION BLOCK) 

REGS: PACKED RECORD 

WAITQ: TIBP; (QUEUE LINK FOR SEMAPHORES) 

PRIOR; BYTE; (TASK'S CPU PRIORITY) 

FLAGS: BYTE; (STATE FLAGS... NOT DEFINED YET) 

SPLOW: INTEGERP; (LOWER STACK POINTER LIMIT) 

SPURP: INTEGERP; (UPPER LIMIT ON STACK) 

SP: INTEGERP; (ACTUAL TOP-OF-STACK POINTER) 

MP: MSCWP; (ACTIVE PROCEDURE MSCW PTR) 

BP; MSCWP; (BASE ADDRESSING ENVIRONMENT PTR) 

IPC- INTEGER; (BYTE PTR IN CURRENT CODE SEG) 

SEGB: ^ CODESEG; (PTR TO SEG CURRENTLY RUNNING) 

HANGP: SEMP; (WHICH TASK IS WAITING ON) 

XXX: INTEGER; (NOT USED) 

lORESULT; lORSLTWD; (RESULT OF LAST I/O OPERATION) 

SIBS; '' SIBVEC; (ARRAY OF SIBS FOR 128.. 255) 

NEXTTIB: tibp 
END (REGS); 

MAINTASK: BOOLEAN; 

STARTMSCW: MSCWP 
END (TIB); 



Figure 7-8. Bootstrap Microcode/ Software Instructions. (2 of 2) 



The primitive softv\mre bootstrap loaded from track 1 now begins execution. It 
loads in track 0 of the floppy. The execution of track 0 (vtiich was just 
loaded) starts tlie loading of the operating s^^tem. Segments 0,2,3, and 5 of the 
operating system are loaded into vpper raanory. Ihese segments contain the l/O 
drivers for the operating system. At this point, the operating system starts 
execution of segment 5, v^hich performs l/O initialization. Ihen segment 6 is 
loaded into ipper memory, and the operating system ocrnmand prcnpt appears. Ihe 
operating system is now ready to accept user oannands. 
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7.1.3 Registers and Operating System Tables 



All registers are referenced by register nurrtoer. The available registers 
and their nuribers are as fihllcws; 

-3 Ready Queue Pointer [RQP] 

-2 Segment Vector Pointer [SDP] 

-1 Current Task Pointer [CTP] 

2 Lower Stack Pointer Limit [SPLCW] 

3 Upper Limit of Stack [SPUPR] 

4 Top of Stack Pointer [SP] 

5 Active Mark Stack Control Wbrd Pointer [MP] 

6 Base Addressing Mark Stack Control Wbrd Pointer [BP] 

7 Program Counter [I PC] 

8 Pointer to currently executing code segment [SEGB] 

Registers are initialized in ways. The first method is by the boot 
sequence. (Refer to section 1.7.2, the Bootstrap Sequence for details.) The 
second method is by the PMACHINE statement, a III.0 USSD Pascal language 
extension that allows generation of Pascal operators. For example, the 
program segment below reads the value of the markstack pointer into a Pascal 
variable. 



CONST MP=5 

LPR=157; STO=196; 

VAR IMP; INIEGER; 

BEGIN 

EMACHINE("LMP, (MP) ,LPR, STO) ; 
END, 



A complete description of all the 1 1 1.0 UCSD Enseal operators is found in 
Appendix C.l of this rtanual. The in the FMACHINE statement places the 
address of the following identifier on top of the stack. An identifier (or 
expression) enclosed in parentheses is evaluated, and the result is placed on 
top of the stack. An expression without an or parenthesis must be a con- 
stant and is placed directly into the code. 
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I NOTE 1 



The positive register numbers refer tt) values in the 
active TIB (Task Information Block) . Ihe Pascal 
declaration for the TIB is as follows; 

TIB = RBCO^ { TASK INFOmTION BLOCK } 

REGS: PACKED RECCKD 

^^TQ; TIBP; { OJEUS LINK FC^ SEMARIORES } 

PRIOR; BYTE; { TASK'S CPU ERIORITY } 

FLAGS; BYTE; { STATE FLAGS. . .NOT DEFINED YET } 

SPLOW: "INTEGER; { LOWER STACK POINTER LIMIT } 

SPUE^; "INTEGER; { UPPER LIMIT ON SLACK } 

SP; "INTEGER; { ACTUAL TOP-OF-SmCK POINTER } 

MP: MSaVP; { ACTIVE PROCEDURE MSOV PTR } 

BP: T4SaVP; { BASE ADDRESSING ElWIRONyiENT PTR } 

IPC; INTEGER; { BYTE PTR IN CURRENT 001^ SEG } 

SE03; "COffiSBG; { PTR TO SEG CURRENTLY RUNNING } 

HANGP: SEVIP; { WHICH TASK IS WATTING ON } 
IORSLT;IORSLTWD; {lO RESULT NEW IN TIB] 

SIBS; "SIBVEC { ARRAY OF SIBS FOR 128. .255 } 

END { REGS } ; 

MAINTASK; BOOLEAN; 

STARIMSa^: MSCWP 
NEXITIB: TIBP; 

END { TIB } ; 

For exanpLe, the MP, the raarkstack control word pointer, is register number 
5, and it is word 5 in the TIB. When the microcoded P-code operators LPR and 
SPR refer to positive-valued registers, these values are taken fran the TIB. 

Tie Segment Vector Pointer register points at the segment vector, vhich is an 
operating system table vhich contains information concerning all active seg- 
ments in the Pascal ^stem. Ihe Pascal declaration fiDr the segment vector is 

SEGVBC = ARRAY[0. .127] OF SIBP 

SIBP, (Segment Information Block pointer) is a pointer to a record 
containing information about each active segment. Ihe Pascal declarations 
for SIB and SIBP are as foLlcws; 

SIBP = "SIB; 

SIB = RECORD { SEGMENT INFO BLOCK } 

SEGBASE; "COI^SEG; { MMORY ADDRESS OF SEG } 

SEGLENG; INTEGER; { # WORDS IN SEGyLENT } 

SEGREFS: INTEGER; { NLMBER OF ACTIVE GALLS } 

SBGAIXR; INTEGER; { ABSOLUTE DISK ADDRESS } 

SEGUNTT; USfITNLM; { PHYSICAL DISK UNIT } 

PREVSP; INTEGER; 

END { SIB } ; 
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7.1.4 Concurrency Primitives and Internets 



UCSD Fiscal provides several language constructs that are iKefiiL for 
operating system and l/O handler developmeit. Those constructs pertinent to 
intertask carmunication, and l/O coordination are described in the subsequent 
subsections . 



Concurrency 



The ST5\RT cannand is the system intrinsic that creates new tasks in the 
system. This intrinsic may only be called from a main task, such as 
the outer block of a user program. If START is called from a subtask, a run- 
time error is goierated. As a part of the START calling sequence, the 
semajhore primitives SIGNAL and WAIT are executed. The purpose of this 
semaphore synchronization for START is to assure that parameters passed by a 
START call are received by the siJDtask, before later execution may alter 
them. A user ^lould note that this type of task switch occurs as a part of 
task STARTing. Calls to READ and WEUITE execute the WATT semaphore operator 
so a task switch may occur during l/O. Thus, a user ^ould realize that a 
tasks switch may occur at other times than he has explicitly programned 
using SIGNAL and WAIT. 

A correct concurrent program makes no assunptions about the order of 
operations during concurrent processing. The corollary is that a program 
must always be prepared for a task switch because interrupts may happen at 
any time. In order to protect indivisible operations, a semaphore lock must 
be used. 

I NOTE I 



A program that does not call START need not be 
concerned about concurrency and task switching as the 
operation fbr a single task handles all intertask 
synchronization . 

l/O locks and associated critical regions are iirplemented at the unit 
level. These semaphore locks are used to assure that each l/O operation is 
not interri:pted until it carpi etes. This precaution assures that each 
UNITREAD, INITWRITE, UNITCLEAR call is an indivisible operation fbr a 
specific unit and that no other task in the system may perform a unit 
operation on the same unit until the first operation oanpletes. 
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Interrupts 



Each time a hardware interrupt occurs, a software seraajSiore is signaled. 

When a hardware interrupt occurs, all interrupts are disabled. Thus, on 
receipt of an interrupt, a typical l/O driver, after checking status and 
capturing the l/O data, must reenable interrupts. 

Interrupts may be oiabled programatically. In order to enable interrupts, 
the interrupt enable register (at address FC48 hex for VO0900 and SB1600 
systene and at FC41 for I'1E1600 systens) must be written to. For exanple, 
the Pascal procedure beLow enables interrupts. 

procedure enableints; 
var Qiabletrix: record 

case boolean of 

true: (addr: integer); 

false: (loc: ^integer); 
end; 

begin 

enabletrix.addr := -952; { FC48 hex; and -959 (FC41) for ME1600 } 

enabletrix .loc^ : = -1 ; 
end; 

For WD0900 machines, interrupts may be disabled by a program at the l/O 
device level. That is, each peripheral device (such as the WD 1931 on the 
serial port or the M8255 on the parallel port) has a specific bit or bits 
that disable interrupts for the device. For exanple, to disable interrupts 
on a serial port, bits 1 and 2 of ccntroi register 1, the request to send 
and the receiver oiable bits, must be reset. 

For SB1600 systems, writing a 0 to FC48 disables interrupts and writing a 1 
enables interrupts. For ME1600 systems, the mask registers at PC2C, ED2C, 
and PC42 can mask out interrupts. Refer to Appendix G for WD0900, SB1600, 
and ME1600 l/O addresses. 

When an interrupt driven l/O driver executes, a typical sequence is: 

Set up device controller registers to perform l/o 
Wait (device interrupt semaphore) 

Capture data 
Reenable interrupts 

In this sequence, the microcode handles the conversion of a hardware 
interrupt signal to a software signal . When an interrupt is generated by 
the hardware, interrupts are disabled for the entire system. Ihe l/O driver 
sequence above reenables interrupts as soon as possible after the interrupt 
signal is received. Because of the necessity of reenabling interrupts after 
an l/0 interrupt, a guarantee must exist that vhen a hardware- interrupt- 
attached SQTiaphore is signaled an l/O process is at a high enough priority 
that it executes in order to reenable interrupts. 
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i^en an I/O operation is requested by a program, the operating system (by 
use of signals to vjait on semaphores) cormunicates with l/O handler 
concurrent tasks that act as managers for the hardv\are l/O resources. The 
l/O tasks are run at a priority betvy^en 240 and 255, so vhen a hardvare 
interrijpt occurs, the tasks can reenable system interrrpts. In order to 
keep the l/O tasks at highest priority, no other task in the system may run 
at a higher priority. In order to safeguard this process, the command 

does rK)t allow a task to run at a priority higher than 240. If a task must 
be started at a higher priority, passing the stack space parameter as a 
negative noriber to the command overrides this restriction. 



Tasks 



Tasks provide the basis far concurrent processing. A task is declared by a 
PROCESS declaration, vhich is a UGSD Enseal extension. The PROCESS 
declaration is syntactially sindlar to a PROCEDURE declaration. 

Syntax; Process <identifier> <fontal parameter part> 

Process <identifier> 

A process is started by the procedure Start described by the following 
format. 

Syntax: Start (<process statement> C <procesid var>], 

[stacking expression>, 

< priority expresion>]]3 

Three optional parameters exist for the Start procedure. 

1. Processid - a predeclared variable type in UCSD Pascal. V^ihen 

present, assigns a value to the variable \flhich is unique to the 
process vhich has been started. In the exanpie, each call of the 
process EDuck in Figure 7-9 has a different processid value. Ihe 
first call does not return a value of processid because no parameter 
is passed. 

2. Stacksize ejq^ression - determines how much stack space is 

allocated for this process. If no value is given, the catpiler 
allocates a default value of 200 words. 

3. Priority expression - determines vhat processes are handled first 

by the CPU. Ihe higher priority processes are executed before 
lower priority processes. If no priority is given, the new 
process inherits the priority of the caller. 

Figure 7-9 ^ows an exanple of the Start procedure. 
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pjLuyram cartcxDn; 
varpriDcidl , procid2 , procidS ; 
i/j : integer; 

process irraouse; 
begin 
end 

process dduck ( x , y ; integer ) ; 
begin 

• • • 

end; 

begin (*start of program cartoon*) 
start, (imouse); 
i = 1; 
j = 2; 

start (dduck(i, j) ) ; 
start (dduck(3 , 4) ,procidl ) ; 
start (dduck(5, 5) ,procid2, 300 ) ; 
start ( dduck ( j , 2 ) ,procid3 , it j , 10 ) ; 



Figure 7-9. Exarrple of the Start Procedure. 



Start act inlands can only be called from a nain task such as the outer 
block of a user program. If called from a subtask, a run-time error 
is generated. 

Each task has an associated TIB that reflects the status of each task. The 
Start procedure links a TIB created by the process into the ready gueue in 
priority order. When a task is to execute, it is moved from the ready 
queue to the current task queue. This queue has only a single task on it; the 
one currently executing. The ready queue is manipulated by the semaphore 
primitives Whit and Signal. 



Semaphores 



Semaphores are an dirportant part of concurrent tasking. They function in 
three areas. 

• Solving mutual exclusion problems. 

• Synchronization of timing betvv/een ts«o cooperating programs. 

• Attaching somphores to a hardvare interrupt enabling 
interrupt handlers to be written. 
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The internal structure of a semaphore consists of two elements. 

• Count field - set lay Seiiinit value. 

• Queue field - indicating if any tasks are waiting on. the 

semaphore. The queue field actually points 
to a linked list of TIBs waiting cn the 
semaphore in priority order. 

Semaphores are declared as a variable data type and must be initialized 
before being used. Eb.il ure to initialize a semaphore causes unpredictable 
actions from the syston. Semaphores are initialized by the x3rocedure 
Seminit. 

Example; 

Seminit (saH/0) 

The two parameters associated with Seminit are (1) semaphore name (son) and 
(2) an integer value that represents the initial count of the semaphore (in 
the example, the value is 0). \^en the coipiler encounters a Seminit, it sets 
the count part of the semphore to the integer value of Seminit and the queue 
field to nil . 



Signal and Wait 



Signal and Wait use semaphore variables as parameters. 

Wait — When executing Wait on a semaphore, two possible paths 
exist depending on the count of the semaphore. 

1. When the count of the semaphore is greater than zero, 
the count is decremented and the task continues. 

2. When the count equals zero, the current task is 
enqueued on the semaphore. The next task on the ready 
queue is moved to the current task queue and executed. 



Signal — Two paths also exist for Signal when executing on a sema- 
phore; however, in this case, the queue field is the deciding factor. 

1. If the queue field is nil, the count field is incre- 
mented and the task continues. 

2. Vhen the queue field is not nil (that is, tasks are 
waiting on the semaphore), the task at the front of 
the semaphore queue is moved to the ready queue. No 
incrementing of the count field takes place. Ihe highest 
priority task between the current task and tliose tasks 
in the ready queue then executes. 
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Figure 7-10 gives an exarj^le of the use of semaphores. 



program semaphorexn^e? 
var pidl,pid2 ; processid; 

Message! ock, Messageready, Receivedmessage ; semaphore; 
message : string; 

process Sendmessage (mess ; string ) ; 

{locals are allcv^d} 
begin 

wait (Message ock ) ; 
message := mess; 
signal (Messageready) ; 
wait (Receivedmessage); 
signal (Message! ock) ; 
end ; ( *Sendmessage* ) 

process Printmessage; 
begin 

wait (Messageready); 
writeln (message); 
signal (Receivedmessage) ; 
end ; ( *Printmessage* ) 

begin 

soninit (Messagelock, 1); 
s«ninit (Messageready, 0); 
seminit (Receivedmessage, 0); 

start ( Printmessage, pidl , 85, 200 ) ; 

start (Sendraessage( ' themessage' ) ,pid2, 85, 200) ; 

end. 



Figure 7-10. Semaphore Example. 



EXPIAmTION OF SEMAPHORE EXAMPLE 

Initial State 

Current Task Queue Ready Queue Message! ock Messageready Receivedmessage 

Printmessage Sendmessage 10 0 

PrmtiT^ssage begins executxr^. Uis wait Sdic (messageready) ^cecutes 
causing the printmessage task to be queued and the Sendmessage process 
to begin executing. 
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Current Task Queue Ready Queue Messagelcx:k Messageready Receivedmessage 
Sendmessage 10 0 

Que 

Printinessage 



Sendmessage begins executing vdth a \^it (messagelock) . Ihis action 
decranents the messagelock count to zero, places the message passed 
into message (local variable) and then signals (Messageready). Because 
a task is \/\aiting on the Messageready queue, this task is removed from 
the semaphore queue and placed on the ready queue. 

Sendmessage continues executing and executes the vait (Receivedmessage) . 
With the value now equal to zero, this state causes Sendmessage to be 
placed on the sonaphore queue and Printmessage placed in the current 
task queue beginning execution from the last stoj^ing point. 



Current T^sk Queue Ready Queue Messagelock Messageready Receivedmessage 
Printmessage 0 0 0 

Que Que 

Sendmessage 



Printmessage now outputs the message and signals (Receivedmessage) , 
causing Sendmessage to be placed in the ready queue. Printmessage 
completes and Sendmessage resumes execution. Sendmessage signals 
(Messagelock) causing the count of Message ock to be incranented. 
Sendmessage ccnpLetes, and all semaphores are back to their initial 
states. 



Attach 



Ihe intrinsic called Attach associates the semaphore parameter with an 
internet signal. Therefore, when the Imrdware raises the intern; 5 >t, the 
associated sanaphore is signaled. 

Example: 

procedure attach (sem : semaphore, vector ; integer); 

Sem contains a pointer to the semaphore involved. Vector contains an 
interri: 5 )t address attached to that semaphore. Each l/O port on the 
ME1600 Series SuperMicro computer is a unique address. 
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7 0 TMnTDTKTc:Tr»q 



Most of tils st3jnQ9JTQ funct-Lons c3.0scirdj3sc^ in tli 0 ir's.scsl. UsSjTs snd. 

Report (2nd edition) by Kathleen Jensen and Niklaus Wirth (Springer-Verlag, 
1975) are provided in the III.0 Operating System. Many of these functions 
are described in the following sections; the standard functions provided but 
not described in these sections are as follcws: 

NEW, ABS, 3^2^, SIN, CCS, ARCTAN, EXP, IN, SORT, ODD, TRUNC, 

ROUND, CHD,CHR, SUJC, and FRED. 

Ihe standard functions not provided are as follcws: 

DISPOSE, PACK, and UNPACK. 

Users of the UCSD Enseal (TM) III.0 intrinsics ^ould be fluent in Pascal and 
experienced in the use of the III.0 Operating System. All necessary range 
and validity checks during use of those intrinsics are the responsibility of 
the user. Seme intrinsics do no range checking. Those intrinsics that are 
particularly dangerous are noted in the descriptions. 

The required parameters are listed alor^ vdth the function/procedure 
identifier. C^ional parameters are in square brackets []. The default 
values are in braces {} cai the line belcw. Within each subsection, 
functions and procedures are listed in alphabetical order. 

The foil owing terras are used in the explanations of the Intrinsics: 



ARRAY 

BLOCK 

BLOCKS 

BLOCKNLMBER 

BOOLEAN 



: an ARRAY CF CHARacters 
: one disk block, (512 bytes) 

: an INTEGER number of blocks 
: an absolute disk block address 
: any BOOLEAN value 
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CmRACTER 

DESTINATION 

EXPRESSION 

FILEID 

INDEX 

NUMBER 

RELBLOCK 

SB4PLE \ARIABIE 

SIZE 

SOURCE 

SCREEN 

STRING 

TITLE 

UNITNIMBER 

VOLID 



; any expression that evaluates to a character 

: a string or PACKED ARRAY OF GHARacters into vhich 
to write or a SIRING that is context dependent 

; part or all of an ejqpression to be specified 

; a file identifier that must be 
VAR fileid: FILE CF <type>; 
or lEXT; 
or INTERACTIVE; 
or FII£; 

: an index into a STRING or PACKED ARRAY OF CHAR- 
acters that is context dependent or as specified 

; a literal or identifier whose type is either 
INTEGER or REAL 

; a relative disk block address (relative to the 
start of the file in context); the first block 
being block zero 

: any declared PASCAL variable that is of one 
of the ficllowing TYPES : 

BOOLEAN CHAR REAL STRING 
or PACKED ARRAY [ . . ] OF CHAR 

: an INTEGER number of bytes or characters; any 
integer val ue 

; a SIRING or PACKED ARRAY CF GHARacters to be 
used as a read-cxily array, ccxitext dependent 
or as specified** 

; an array 80 X 24 bytes long; or as needed 

: any SIRING, call -by-value unless otherwise 
specified; that is, may be a quoted string, 
string variable, or function that evaluates 
to a SIRING 

; a SIRING consisting of a file name 

; physical device nurtber (See Appendix B.4.) 

; a volijne idoitifier; SIRING [7] 



** In string intrinsics, SCXJRCE must be a string. In intrinsics that 
deal with packed arrays of characters, it may be either. However, in 
using STRINGS in intrinsics that expect character arrays, the zero 
element of the string is the length byte, v\hich may cause some unex- 
pected prdblQTis if not previously considered. 
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7,2.1 Qiaracter Array f'fenipulation Intrinsics 



The Character Array Manipulation Intrinsics are byte-oriented. No range 
checking of any kind is performed on the naraneters passed to -Uieni 
therefore, caution must be used in dealing with these intrinsics. Ihe 
system does not protect itself from these operations. Ihe intrinsic SIZEOF 
(Section 7.2.4) is intended for use with these intrinsics vhen the number of 
bytes is a parameter. 

PRCX:EDURE FIIiiCHAR (OESTINATiaT, LENGTH, CHARACTER); 

This procedure takes a (subscripted) packed array of characters and 
fills it with the maiiber (LENGTH) of CHARACTERS specified. This same 
action can be done using a MOVELEFT procedure (described below); but 
the FILLCHAR procedure is twice as fest because no memory reference 
is needed for the source. 

PROCEDURE MOVELEFT (SOURCE, DESTINATION, LENGTH); 

PROCEDURE MOYERIGHT (SOURCE, DESTINATION, LENGTH); 

These procedures do mass moves of bytes for the LENGTH specified. 

(The LENGTH is in bytes.) MOVELEFT starts from the left end of the 
SOURCE and mcves t^es to the left end of the DESTINATION, traveling 
right. MOVERIGHT starts from the right end, traveling left. Both 
may be needed vhen working oi a single array in which the order of 
the characters moved is critical. 

See Figure 7-11 for an exairple use of the MOVELEFT and NDVERIGHT 
procedures . 



PROGRAM MOVETEST; 

VAR BUFl : PACKED ARRAY [0..19] OF CHAR; 

BUF2 ; PACKED ARRAY [0..20] OF CHAR; 

BEGIN (*MOVETEST*) 

BUFl := 'MOVE CHARACTERS LEFT'; 

BUF2 := 'THESE CHARACTERS ' ; 

M0VEI£FT(BUF1,BUF2, 5); (move 5 bytes from BUFl to BUF2 going L to R} 
WRITELN (BUF2); 

END (*MOVETEST*). 



Figure 7-11. Exarrple of the MOVEILEPT, MOVERIOfT Character Array 
Manipulation Intrinsic. 
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FUNCTION SCAN (LENGTH, PARTIAL EXPEIESSIQN, ARRAY) : INTEXSR; 



This function returns the nurrib^ of characters from the starting 
pDsition of the scan to the position vhere it terminated. 

Termination comes vhen matching the specified LENGTH or satis:fying 
the EXPRESSION. The ARRAY should be packed and may be subscripted to 
denote the starting point. If the EXPRESSICSN vas satisfied on the 
character at vhich ARRAY is pointed, the value returned is zero. If 
the LENGTH passed was negative, the number returned is negative, and 
the function will have scanned backward. Ihe PARTIAL EXPRESSION must 
be in the fbllcwing format; 

"<>" or "=" foUoAoi by character expression. 

See Figure 7-12 for an example use of SCAN. 



PROGRAM SGANTEST; 

VAR EX : PACKED ARRAY[0. . .37] OF CHAR? 

I ; INTEGER; 

BEGIN (*SCANTEST*) 

EX ;= ' EXAMPLE CF CHARACTER ARRAY INTRINSICS'? 

I ;= SCAN(-25,='; ',EX[25]); {starting at 25th char in EX, scan} 

WRTTELiT (I); {to the left until a ; is found; or} 

I SCAN(38, <>' ',EX{0})? {until the aid is reached.} 

WRTTEIN (I); 

END (*SGANTEST*). 



Figure 7-12. Exanple of the Scan Character Array I'fenipulation 
Intrinsic . 






7.2.2 l/O Intrinsics 



FUNCTION BtJ3CKRE?yD(FILEID, ARRAY, BLOCKS, [RELBIiOCK] ) : INTEGER? 

FUNCTION BLjQCKWRITE ( FIIEID, ARRAY, BliOCKS , [RELRLQCK] ) : INTEGER? 

{sequential} 

Hiese functions return an INTEGER value of the number of blocks of 
data transferred. The FILE must be an untyped file. The length of 
ARE?AY should be an integer muLtiple of bytes-per-disk-block. BLOCKS 
IS the number of blocks to be transferred. RET .BLOCK is the 
blocknutiber relative to the start of the file, block zero being the 
first block. If no RET BLOCK is specified, the l/o is ccmpLeted 
sequentially starting at block zero. A random access l/O moves the 
file pointers. BCy(FIL£ID) beccraes true vhen the last block in the 
file is read. 

PROCEDURE CLOSE (FILEID, [OPTION])? 

OPTIONS include ", LOCK", ", NORMAL", ", PURGE" and ", CRUNCH". 

(The carmas must appear as ^lown? that is, the option must be 
preceded by a ccrnna.) 

A normal CLOSE is done v^hen the OPTIcaiL is null. Normal means the 
following: if open with reset, then CLOSE leaves the file in the 
directory? if open with rewrite, then CLOSE purges the file. CLOSE 
siirply sets the file state to closed. If the file is a disk file 
and was opened using I^BWRITE, it is deleted from the directory. 

The LOCK option causes the disk file associated with the FIIEID to 
be made permanent in the directory if the file is on a directory- 
structured device and the file vas opened with a L^EWRTTE? otherwise, a 
normal CLOSE is dene. 

The PURGE option deletes the title associated with the FILEID 
from the directory. The unit goes off-line if the device is not 
bl ock-structured . 

Ihe CRUNCH option locks the £ile with the current location of the 
file pointer being the last record of the file. 



I CAUTION I 



If a SEEK has been dcxie on the file, the file pointer 
may not point to the end of the file. The records 
after the file pointer are discarded. 
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Regardless of OPTIC*?, all CLOSES mark the file closed and ireke the 
in^iicit vari^le FILEID" undefined. dOSEing an already GLOSEd file 
causes no action. 



FUNCTION EOF (FII£ID) : BOOLEAN; 

FUNCTION BOIN (FILEID) : BOOLEAN; 

EOF (end-of-file) and BOLN (end-of~line) return Ehlse after the file 
specified is reset. They both return True on a closed file. If 
FILEID is not present, the fileid INPUT is assumed (ficr example, IF 
Ed* TEEN. . .). When EOF (FILEID) is True, FILEID^ is undefined. 

When GET (FIIEID) sets FIIEID^ to the EQLN or EOF character, BOLN 
(FIIEID) returns True, and FILEID^ (in a FILE CF CHAR) is set to 
blank. 

While doing PUTs or WRITES at the aid of a file, if the file cannot 
be ejcpanded to acccrnnodate the PUT or V^RITE, EOF (FILEID) returns 
True. 

PROCEDURE GET (FIIEID); 

PROCEDURE EUT (FILEID); 

GET (FIIEID) leaves the contents of the current logical record 
pointed at hy the file pointers in the implicitly declared window 
vari abl e FILEID^ and increments the file pointer. 

PUT (FIIEID) puts the contents of FILEID^ into the file at the 
location of the current file pointers and then updates those pointers. 

Both parocedures are used on typed files; that is, files for v»hich 
a type is specified in the varictole declaration ("FIIEID; FILE 
OF type"). Untyped files are sirply declared as "FILEID; FILE;". 

"F; FILE CF CHAR" is equivalent to "F: TEXT". In a typed file, each 
logical record is a memory image fitting the description of a 
variable of the associated <type>. 

FUNCTION lORESULT ; INTEGER; 

After any I/O operation, lORESULT contains an INTEGER value that 
represents the error result (a 0 means no error) . Refer to Appendix 
B3 for a list of error results. 

PROCEDURE PAGE (FIIEID); 

PAGE (FILEID) sends a top-of-fom (ASCII FF) to the file. 
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PROCEDURE RE?UD{LISr} (FILEID, SOURCE); 

PROCEDURE WRITE {IN} (FIIEID, SOURCE); 

These procedures my be used cdLy on TEXT (FILE OP CH?^) or 
IMERACTIVE files for l/O, Three predeclared IlOTERACTIVE files are 
available for use; INPtrr, OUTHJT, and KEYBOARD. INFUT results in 
echoing of characters typed to the console. OUTPUT allows the user 
to halt or flush the output by use of START/STOP and FLUSH char- 
acters. (See the discussion of SETUP, 6.1.) KEYBOARD does no 
echo; it allows the prograirmer conplete control of the response to 
user typing. 

If "FIIEID, " is emitted, INPUT or OUTPUT (as appropriate) is assumed. 

A READ (STRING) reads up to, but not including, the end-of-line 
character (carriage return) and leaves EOIN (FIIEID) True. This 
action means that any subsequent READs of string variables 
return the null string until a REAOUN or READ (character) is 
executed . 

PROCEDURE RESET (FIIEID, [TITIE]); 

PROCEDURE REWRITE (FIIEID, TITLE); 

These procedures open files fiDr reading and writing and nark the file 
as open. The FIIEID my be any Pascal -structured file. TITLE is 
a string containing any legal file title. REWRITE creates a new 
file on disk far output files; RESET marks an already existing file 
open far I/O. Far both, RESET and REWRITE, if the device specified 
is a non-directory-structured device (for exanpLe, REMOTE:), the 
file is opened far input, output, or both. 

If the file is already open v\hen the RESET (with TITLE) or KMKLTE is 
attenpted, an error is returned in lORESULT. The state of the file 
ronains unchanged. 

RESET (FIIEID) without an optional parameter applied to an already 
open file rewinds the file by setting the file pointers back to 
the beginning (record 0) of the file. 

On INTERACTIVE files, RESET does rot GET the file. On all other types of 
files RESET does an initial GET on the file, setting the window vari^le 
to the first record in the file. 

REWRITE allows use of file size specification in the title, 
consisting of "[<nunber of blocks>]" at the end of the title string. 

The size specification affects the location of the disk space for the 
file; it does not determine the size of the file. 
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Exaii^es: 



RESET (FII£ID, SIRINGID); {opens STRmGID for input} 

REWRITE (FILEID, ■VOLLME:FILE.TEXr[4] ' ); {opens VDLLME. FILE. TEXT] 

{for output oreating a) 
{file 46 blocks long.} 



PROCEDURE SEEK (FIIJEID, INTEGER); 

SEEK cdianges the file pointers so that the next GET or PUT uses the 
INTEGERth record of FILEID. Records in files are numbered starting 
with 0. A CUT or PUT must be executed after a SEEK call before 
the window and associated buffers are valid. 

FUNCTION LNITBUSY (UNITNIMBER) ; BOOLEAN; 

This function returns a Boolean value. If the value is True, the 
device specified is actively performing an l/O transfer. For 
exarrple: 

IF NOT INITBUSY(l) THEN 

WRITEIN( 'Please type a character'); 

Execution of the exan^ie results in the output of the line 'Please 
type a character' until a character has been typed. For the units 
CCt^SOLE: and REMOTE:, UNITBUSY returns True if characters exist in 
the typeahead queue. 

PROCEDURE LNITCLEAR (UNITNLMBER); 

Ihis procedure cancels all l/O rec^ests to the specified unit and 
resets the hardware to its pov»er-up state. 

PROCEDURE LNITREAD (UNITNUyiBER, ARRAY, LENGTH, [BIOCKNIMBER], [FIAGS]); 
PROCEDURE LNITWRTTE (UNITNLMBER, ARRAY, LENGTH, [BLOCKNLMBER], [FIAGS]); 

These procedures are dangerous because no range checking is done. 

These Icw-level procedures perform l/O to various devices. 

The LNITNUMBER is the integer name of the device. ARRAY is any 
declared packed array. It may be siijscripted to indicate a starting 
position from or to which the transfer is to be completed. LENGTH is 
an integer giving the number of bytes to transfer. 
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BIjCXZKNLISIRKR i.3 r‘ 0 cjLLLi'«i coLy usin<^ a l^u^-:]C“St^uctlit.©d (^vi.«-:S# 

2arv^ *• c* 4-Vi^ aV\eoT i‘t+-o V^l miwnVv^v* •Pv*/''«-n T*lnnrf^T-\ -hVi^ *l-v*av-4e*P^’V" g 

o»i9 wi^ X x^ v^li \m» ^ xXs.«>x x u>xx^ uo.uxi&j.€ju ^iSf 

to GQi^i eta * Hie FLACS val ua is c^ptional * Bit 0 of the FLAGS val ue 
set itr^d-ies asyrKil^onous l/O. (See tiie following discussion of asyn- 
chironous X/Oi } Bit 0 preset in^lies ^yncluronous X/0» (This hit should 
alwa^^ be reset.) 

Bit 1 of FLACS reset dirties logical sector mode, v^ch is the normal 
mode can the systan. Xf bit 1 is set, physical sector mode is 
enabled. Xhis mode has the effect that BLjCCKfcJlJMBER is interpreted 
as the physical sector number. Oonceptually in this mode, the disk 
looks like an array of tracks vihere each track is an array of 
sectors. Ehysical sectors are nuiobered from 0 to 25 starting cxi 
track 0, continue ascending on side 1, track 0, if it exists and then 
on to track 1, side 0, and so forth. For single-sided, single- 
denity diskettes, track 1 has sectors 26-51 (sector size is 128 
bytes). For single-sided, double-daisity diskettes, track 1 has 
sectors 26-51 (sector size is 256 bytes) . For double-sided, single- 
density diskettes, track 1 has sectors 51-77 (sector size is 128 
bytes). For doiiole-sided, double-doisity diskettes, track 1 has 
sectors 51-77 (sector size is 256 bytes). This mode is especially 
useful for accessing track 0 of a diskette, vhere the bootstrap 
resides. For example, the following code sequence reads all of 
track 0 into an array: 

VhR TRACKBUF: ARRAY[0. . 3327] OF 0. .255; 

UNXTREAD(4,TRAGKBUF,3328,0{sector 0} , 2{physical mode}); 



iNOfTEl 



Track 0, side 0 is always single density, even if 
the diskette is a double-density diskette. 

For Winchester drives, a sector contains 512 bytes (it is the same 
si 2 K as a block). Track 0, head 0 contains sectors 0..15; track 
0, head 1 contains 16. .31, and so forth. 

Bit 2 of FLAGS set irrplies no special character handling of DLEs, 
the blank cotpression code, or the EOF character. 

Bit 3 of FLAGS set implies no line feeds are appended to carriage 
returns . 

ALl of these values are normally reset. Xf BLOCKNUyiBER is emitted, 
but FLAGS is included, a cenina is used to hold the placement of 
pjararaeters . 
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Asynchronous l/O 

With an H-level internet drivai operating system, the technique of 
asynchronous l/O as impLemented in seme UdSD II. 0 systems can be simulated 
using the tasking constructs of the III.0 Operating System. Ihe program in 
Figure 1-13 is an exairple of asynchronous l/O simulation. 



program asynch; 
var ch; char; 

gotchar; boolean; 

process reader; 
begin 

read(ch) ; 
gotchar := true; 
end; 

begin 

ch ;= 'i'; gotchar := false; 

start( reader, ,100,150); { Priority 150 higher than main task } 
v^iile not gotchar do 

writeln( 'Please type a character'); 
writeln( ch, ' v»s typed ' ) ; 
end. 



Figure 7-13. Example of Asynchronous l/O Simulation. 



PROCEDURE LNITWATT (UNITNCMBER) ; 

The program or task that executes this statement vyaits on the unit 
mtil the specified unit is not actively performing an l/O transfer. 
This vait is irrplemented using locking saraphores to guard each unit 
l/O operation. 
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7.2.3 String Intrinsics 



To maintain the integrity of the lENSTH of a string, only string functions or 
full -string assigmiesits ^lOiid be used to alter strings. Moves and single- 
character assignments do not affect the length of a string; therefore, 
the progranmer must do range dheclcing. The individual elements of STRING are 
of cmR type and may be indexed 1. . LEMITH (STRING ) . Accessing the string 
outside this range has unpredictable results if range-checking is off. If 
range-checking is on, a run-time error results. 

Exanples of String Intrinsics are given in Figure 7-14. 

FUNCTION GOiJCAT (SOURCES ) ; SIRING 

This function returns a string that is the concatenation of all the 
strings passed to it. Any nurriber of source strings, separated by 
connas, may exist. 

FUSFCTICaJ copy (source, index, size) : STRING 

This function returns a string containing SIZE characters copied from 
SOURCE starting at the INDEXed position. 

FUNCTION LENGTH (STRING) : INTEGER 

This function returns the integer value of the length of STRING. 

FUNCTION POS (STRING, SOURCE) : INTEGER; 

This function returns the integer position of the first occurrence 
of the pattern (STRING) in SOURCE. If the pattern vas not fiDund, zero 
is returned. 

PROCEDURE DELETE (DESTINATICW, INDEX, SIZE); 

This procedure deletes SIZE characters frcm DESTINATION starting at 
the INDEXed position. 

PROCEDURE INSERT (SOURCE, DESTINATIC8SF, INDEX) 

This procedure inserts SOURCE into DESTINATION starting vydth the 
INDEXed position in DESTINATIOST. 

PROCEDURE SIR (imG, DESTINATION); 

This pax)cedure converts a long integer LONG into a string. The 
resulting string is placed in lESTINATIG^I. The integer LONG may 
also be a normal INTEGER. 
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PROGRAM SIRINTST; 



USES longint; 

VAR name, text,pattem, first# second, third : SIRING; 
start, get, toonany, more : STRING; 
long : INTEGERCS]; 

I : INTEGER; 

BEGIN (*STRINTST*) 

I := LENGTH(‘ABC ); 

WRITEIN (I); 

naire := 'JQEIN SMITH'; 

I := LENGTH(name); 

WRTTEIJN(I); 

text := "THIS IS AN EXAMPLE CF SIRING INTRINSIC; 
pattern := 'EXA'; 

I := POS (pattern, text); 

WRTTELN(I); 

first := 'ABCDE'; 
seconl :='PGHIJ'; 
third := CX3NCM’( first, second); 

WRITEIN (third); 

start := 'HERE IS A SIRING OP CHARACTERS'; 
get :=COPY(start,POS('C',start),10); 

WRITEIN ( get ) ; 

toonany :='THIS SIRING HAS TOO MANY OI^CTERS'; 
DELETE ( toonany , 1 7 , 9 ) ; 

WRITEIN (toonany) ; 

more ; = ' TOO MANY'; 

INSERT (more , toonany, 16 ) ; 

WRITEIN ( toonany ) ; 

long ;= 1000000; 

SIR (Icng, more) ; 

WRITEIN( ' $ ' ,iTDre) ; 

END(*STRINTST*) . 



Figure 7-14. Exaitples of String Intrinsics 
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PROCEDURE OOTOXY (XCOORD, YCOORD); 

This prcxiedure sends the cursor to the specified coordinates* The 
L^per left comer of the scre^ is assumed to be 0,0. This procedure 
defaults to a Volker-Craig VC4404 terminal . Bbr systems using 
another terminal, a new GOTOXY must be bound in (see Section 6.10). 

PROCEDURE 

This procedure generates an opcode that causes a run-time error to 
occur. 

FUNCTICai IDG (NUMBER) : RE?\L; 

This function returns the log base ten of NUMBER. 

PROCEDURE MARK (VAR HEAPPTR: "INTEGER); 

PROCEDURE RELEASE (VAR HEAPPTR: "INTEGER); 

These procedures allocate and return heap memory space to the system. 
HEAPPTR is of type "INTEGER. MARK sets HEAPPTR to the current top-of- 
heap. RELEASE sets the top-of-heap pointer to HEAPPTR. 

FUNCTION MEyiAVAIL; INTEGER; 

This function returns the available space as the number of wDrds 
betvjeen the top of the stack and the top of the heap. On a 128K- 
byte system , MEMAVAIL may be greater than 32K^words. Any integer 
greater than 32K (32767) words is represented as a negative 
nuriber. In order to avoid failure of MEMA\A,IL tests if the space 
available is greater than 32K words, MEMAVAIL returns 32767 if true 
available memory is greater than that nuriber. REMA\^IL returns the 
exact size. 

FUNCTICW EWROFTEN (EXPONENT: INTEGER) : REAL; 

This function returns the value of ten to the EXPONENT pcMer. 

EXPONENT must be an integer in the range of 0 through 37. 
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FUNCTIOT PMEMAVAIL; REAL; 

This function returns a real value that exactly represents the 
true memory space available, regardless of vihether the system is 
configured vd.th 64K or 128K bytes. 

FUNCTION SIZE5CF (VMHABLE CR TYPE lEENTIFIER): INTEGER; 

This function returns the nutrber of bytes that a parameter occijpies 
in the stack. 5IZE0F is particularly useful with the FILLdAR and 
MOVExxxx intrinsics. 

PROCEDURE TIME (VAR HB^JORD, LOWORD: INTEGER); 

This procedure returns the current value of the system dock in 60ths 
of a second. The HIWORD contains the most significant portion, and 
DdWORD contains the least significant portion. Both HIWOEID and 
lOWCRD must be ^ARiables of type INTEGER. This procedure is meaningful 
only on ME1600 systems that have a real-time dock. 



7.2.5 Concurrency and Internet Intrinsics 



See Section 7.1.4 Concurrency Primatives and Interrupts for further details. 

PROCEDURE ATTACH (SEMAPHORE, INTEGER) ; 

This procedure attaches the semaphore to the interrvpt address 
specified by the integer, allowing a hardware interrupt bo signal a 
semaphore. 

PROCEDURE SEMINIT (SEMAPHORE, INTEGER); 

This procedure initializes the semaphore. The integer value 
specifies the mitiber of times the semaphore tas been signaled. 

The following exarple initializes the semaphore SEM to "not 
signaled". 

SEMINIT(SEM, 0) ; 

PROCEDURE SIGNAL(SEMAPHORE); 

If any tasks are waiting cai the semaphore, the first task cai the sem- 
aphore queue is moved to the ready queue (in priority order); the 
task with the highest priority anoig the current task and those in 
ready queue then executes. 

If no tasks are waiting on the semaphore, its number of outstanding 
signals is incremented, and the curroit task continues to execute. 
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PROCEHJRE SmRT ( PROCESS ( PARAMS ) , PROCESSID, INTEGER, INTEGER ) ; 

This psroc©d.u]T 0 Cciiisss ths picoc©ss to b© initiated asynchronously. Ih© 
processid is assigned to point to the TIB that is initialized. Ih© 

UV^ llluSycUL jJCLL aute UC7J. O / Oj.r^OrO£tix-JUi CuKu. 1 . J. J. f f 

speci:^ the anojnt of stack space the task is allocated and the 
priority at vhich it runs . ERIORTTY is of type 0 . . 255 . 



I NOTE 1 



Priorities 240-255 are reserved for operating 
system l/O drivers. Ihe highest priority 
available to user programs is 239. 

(See 7.1.3 Registers and Operating System Tables for a description 
of the TIB.) The highest priority task not v^aiting on a semaphore 
executes at the contusion of the START. 

PROCEDURE WAIT (SEMAPHORE); 

If the semaphore has already been signaled, its number of outstanding 
signals is decremented, and the current task continues to execute. 

If the semaphore has not been signaled, the current task is moved 
to the semaphore queue in priority order, and the highest priority 
task in the ready queue executes. In this case, if the ready queue 
is enpty# the processor vaits for an l/O interrupt to occur. 

The example in Figure 7-15 illustrates the use of the WATT procedure 
described above. 
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program ProcessExainpLe; 
var pidl, 

pid2; processid? 

MessageLock, 

MessageEleady, 

ReceivedMessage : semaphore; 

Message : string; 

process SendMessage(rness : string); 

{locals are alla«^} 
begin 

vait (MessageLock) ; 
message := mess; 
signal (MessageReady) ; 
wait(Receiveclfessage) ; 
signal (MessageLock) ; 
end; (SendMessage) 

process PrintMessage; 
begin 

wait(MessageReady) ; 
writeln( message) ; 
signal (ReceivedMessage) ; 
end; {PrintMessage} 

begin 

SQTiinit (MessageLock, 1 ) ; 
seminit (MessageReady , 0 ) ; 
saninit(ReceivedMessage, 0) ; 

start ( PrintMessage , pidl , 85 , 200 ) ; 

start ( SendMessage ( 'The message' ) ,pid2, 85, 200) ; 

end. 



Figure 7-15. Exanple of miT Procedure 



7.3 SBaffiNTS 



Segmenting a porogram so that psrocedures must be in memory only \shen re- 
quired has many advantages: 

• Large pieces of one-time code (for example, initialization 
procedures) can be put into a segment. 

« A program can be configured to suit storage requirements. 

A maximim of 128 user segments are available. Ibese segments are numbered 
128. .255. Also, nine system segments (1, 8. .15) are available for user 
programs . 

Ihe disk that holds the code file for the program must be on line and in the 
same drive as vhen the psxgram v^s started vAienever a SEOMESsn? is called. 

A message requesting the correct disk is generated 

SEOlENr procedures must be the first procedure d^arations containing code- 
generating statOTients. Declarations of SEQ^ffiNT procedures and functions in 
UCSD Pascal are identical to those in standard Pascal, except that they are 
preceded by the reserved word "SEaiENT'' . 

As an exarrpLe, vhen the user wishes to put initialization procedures into a 
segment because they are one-time-only procedures, the declaration might be: 

SEOyiENT PROCEDURE INITIALIZE; 

BEGIN 

(* Pascal code *) 

END; 
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7.4 LINKAGES 



Frequently used zx>utines and data -structures can be separately conpiled and 
can be stored in libraries until needed (see Section 6.5, Librarian) . 

These externally corpiled structures can be integrated into files that need 
to use them. A file that references such a structure need not coipile it 
directly into its code file; the Linker (see Section 6.7) copies the 
existing code of the structure into the host code file. 

Separate ocmpilation, followed by linkage \^hen needed, is supported by the 
1 1 1.0 Operating ^stem between portions of programs written in Pascal, as 
described below. 



7.4.1 Pascal -to-Pascal Linkages (Units) 



A OsTIT is a Pascal routine cctrposed of interdependent procedures, functions, 
and associated data structures, ^'/henever the routine is needed within a 
Pascal program, the program USES the UNIT. 

A UNIT has two parts. The INTERFACE part declares constants, types, 
variables, procedures, and functions that are public and may be used by the 
host program. In other words, the HOT3RFACE part defines how the host 
program ccnmunicates with the UNIT. The IMPLEllENTATIGSI part declares the 
same types of items; hov\^ver, these items are private to the UNTf and are not 
available to the host program. Also, the IMPLEMENTATION part defines how the 
UNIT accomplishes its task. 

When the Conpiler encounters a USES statement, it references the HWERFACE 
part of the U^IT as though that part belonged to the host program itself. 
Because the constants, types, variables, functions, and procedures declared 
in the INTERFACE part are ^cbal, name conflicts my arise with identifiers 
in the host program. The prograrnner my not declare «^cbal identifiers with 
the same name as used in the INTERFACE part of a UNIT. Procedures and 
functions my not USE USTITs locally. 
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Figure 7-16 shows an exairpLe of USES. 



program writedate; 
uses screencontrol ; 
var rao : months; 
days ; days; 
yr : years; 
begin 
home; 
cLeareos; 
date(mO/day,yr) ; 

writ^n( 'The date is; mo; 2, day: 2, yr;2); 

end. 



Figure 7-16. Example of USES. 



Ihe syntax for a IIJIT definition is shov^si in Figure 7-17. See Section 7.5.1 
for the interface of SCREENCOsTTEiOL. Ihe declarations of routine headings 
in the INTERFACE part are similar to forward declarations; therefore, vshen 
the corresponding routines are defined in the IMPLEMENTATION part, formal 
parameter specifications cannot be repeated. 



I NOTE I 



Variables of type FILE must be declared in the 
INTERFACE part of a UNIT. A FILE declared in 
the IMPLEMENTATION pari: causes a syntax error 
at coipile time. 
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<Canpilation unit> 



: : = <Program heading > ; { <Unit definition> ; } 
<Uses part> <Block> I 
<Unit def inition> ; { <Unit def inition> } . 

<Unit definition> <Unit heading >; 

<Interface part> 

<Inplementation part> 

End 

<Unit heading> ::= Unit <Unit identifier > 

<Unit identifier> <Identifier> 

< Inter face part.> Interface 

<Uses part> 

<Constant definition part> 

<Type definition part> 

<Variable declaration part> 

<Procedure and Function heading part> 

<Procedure and function heading part> 

::= {<Procedure or function heading >} 

< Procedure and function heading > 

: :=<procedure heading > | < function heading > 

<Irrpleraentation part> ::= Iir^ ementation 

<Label declaration part> 

<Constant definition part> 

<Typs definition pairt> 

<Variable declaration part> 

<Procedure and Function declaration part> 

<Uses part> : := Uses <Unit identifier> 

{, <Unit identifier>}; I <EiTipty> 

Figure 7-17. Syntax for a UNIT Etefinition. 
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A user may define a UNIT in-line, after the heading of the host program. In 
this case, the user catpiles both the UNIT and the host program together. 
Subsequent chcinges in either the UNIT or host program require a reccirpilation 
of both. 

The Linker copies the code fbr the UNIT into the host program. 

A UNIT or group of UNITs can be ccrtpiled separately and stored in a library. 
After ccnpiling a host program that uses a UNIT stored in a library, the user 
must link that UNIT into the bust program by executing the Linker. If a user 
calls R(un and an unlinked code file is requested, the Linker is called 
automatically. If X(ecute is called in such a case, the system issues a 
roninder to link the code. 

If the host program has changes, the user must recompile and link in the It^IT 
If the IMPt^lENEATION part is changed, the UNIT must l^e recompiled, and then 
all ccnpilation units tliat use the UNIT must be relinked. Changes in the 
INTEE^FACE part require a recompilation of not caily the UNIT, but of all 
compilation units that use it. Then, all ccnpilation units must be r^ inked. 
These restrictions apply only if the new version of the UNIT is to be used 
in all fil es . 

The Corrpiler generates Linker information in the contiguous blocks that 
follow a program that uses UNITs. This inJformation includes locations of 
references to externally defined identifiers. 
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■P-Jtto iTp4+-o» gr* P HlhtN li^ON^ l^i^OT ■ _ T iTNETiTNrr . MF!N JiT. KBDSTuFF- 
and EEIAYUNIT. Ihe SCREENCCNTROL unit contains several procedures that cause 
screen control action or that return information about the user's terminal. 
The LONGINT unit is used by code files that use long integers. The MENU 
unit allows menus to be developed to aid the end user in using the system. 

The KDBSTUFF unit allows a cormand file to be created vhich can be used 
to cause certain actions (for exait^e, executing a program py a call frcxn 
another program). The EEIAYUNIT allcws scheduled delays to suspend the 
task requesting a d^ay. 



7.5.1 SCREENCONTROL Unit 



The SCREENGONTROL unit accesses fields in the record SYSCCM, Which is set 
up at boot time from the file SYSTEM. MISCINFO, Which is create fcy the 
program SETUP. This unit oontains several procedures tliat cause screen 
control action, return information about the terminal, or return the date. 
The user may access the following procedures in this unit. 



PROCEDURE H^yiE; 

PROCEDURE CLEAREOS; 

PROCEDURE CLEAREOL; 

FUNCTION SCREEISWIDTH; INTEGER; 
FUNCTION SCREENEffilGHT: INTEGER; 



{Hemes the cursor using the 
characters specified in SEITUP} 

{dears the screen starting at 
the current cursor position 
using the characters specified 
in SETUP} 



{dears the line starting at the 
current cursor position using 
the characters specified in 
SETUP} 

{Returns the width of the screen 
as specified in SETUP} 

{Returns the height of the screen 
as specified in SETUP} 
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PROCEDURE IATE(VMl HrMOsTTHS; VPiR D:Eft.YS; V?^ Y:YEM^); 

{Returns the current date as stored ty the 
operating system. MGSTTHS, EAYS, and YEARS are 
types declared in the INTERFACE and are, there- 
fore, available to the user. Ihe declarations 
are: TYPE MONTHS = 0. ..12; 

DAYS =0...31; 

YEZ\RS = 0. . .99; 



7.5.2 IDNGINT Unit 



The optional use of a length attribute on the Pascal predeclared type INTEGER 
is avail ^le. An INTEGER with a laigth attribute is referred to as a LONG 
INTEGER. It is suitable far business, scientific or other applications vhere 
a need for extended nuriber length with ccmplete accuracy exists. Ihe four 
basic standard arithmetic operations (addition, subtraction, multiplication 
and division) are supported, as as routines fecilitating conversion to 

strings and standard INTEGERS. Strong type checking is oiforced to reduce 
potential errors. l/O, in-line declaration of constants, and inclusion in 
structured types are fully sipported and are analogous to the usage of 
standard INTEGaEIte. 

LONG INTEC3RS are declared by using the standard identifier "INTEGER" followed 
by a l^gth attribute enclosed in square brackets. Ihe length is given as an 
unsigned number, not larger than 36, that denotes the minimun number of 
deciioal digits to be represented. In the example below, the vari^le Z is 
capable of storing up to a 12-decimal digit signed number; 

VAR Z; INTEGERC12]; 

Generally, D:M5 INTEGERS may be used anyvhere a REAL would be syntactically 
correct. However, care must be taken to assure that sufficient words have 
been allocated by the declared loigth attribute for storage of the result of 
assignment or arithmetic expression statements. INTEGER expressions are 
inplicitly converted as required on assignment to, or arithmetic cperations 
with, a IDNG INTEGER, but the reverse is not true. Ihe LONG INTEGSR cannot 
be used in a subrange, and conversion to type REAL is not supported. 



I NOTE I 



Long integers reside in the UNIT LDNGINT and a 
USES IDNGINT statement must be included in a program 
that performs long integer operations. 

Examples of uses of the LONG INTEGER are ^own in Figure 7-18. 



Page 7-48 




PROGS^AM LIlslTEGER; 
USES LDNGJJSfT; 

VAR L : IOTEGER[20]; 

I : INTEGER; 
BEGIN (*LINTEGER*) 

L := 9876543210; 

L ;= “L; 

L := L-li; 

L := 256; 

I ;= TRUNC(L); 

END (*LINTEGER*) . 



Figure 7-18. Exan^e Uses of Long Integers. 



Arithmetic cperations that may be used in conjunction with the LONG INTEGER 
are as follows: 

+, *, DIV, mary pL us/minus 

On assignment, the length of the LONG INTEGER is adjusted during execution to 
the declared length attribute of the vari^le. Therefore, an interrupt 
(overflow) can result vhen the intermediate result exceeds the number of words 
required to store at least 37 decimal digits, or v\hen the final result is 
assigned to a variable with an insufficient length attribute. All of the 
standard relational c^jerators can be used with mixed INTEGER and LONG INTEGER. 

The function TRUC accepts a LONG INTEGER as well as a REAL as an argument. 
Interrupt (overflow) occurs if the result is greater than MAXINT. 

The procedure STR(L, S) converts the INi'EGElR or LONG INTEC21R "L" into a 
string, cor^ete with minus sign if needed, and places it in the STRING "S" . 

An attempt to declare a LONG INTEGER in a parameter list other than for the 
routines TRUNC and STR results in a ccjipil e-time error. The error may be 
circumvented by creating a type that is called LONG INTEGER, as follows: 

TYPE LONG = INTEGER [15]; 

PROCEDURE CVERSIZE (ACCOUNT: lONG); 
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Ihe IDNG IlSTTEGER is stored in a niuLtivrord, packed, binary-coded deeding (BCD) 
representation. J^ston routines cernpLete the l/O conversions as required. 
Maximun storage efficiency is achieved by dynamic expansion arxi contraction 
of vtord ^location as required. During LCm BSTTEGER operations, the length 
is placed on the stack above the niiiiber itself. 



I NOTE I 



The declared length attribute is enforced (given range 
checking) only on assignment to a long INTEGER 
variable; an intermediate expression result can be up 
to 36 digits. 



7.5.3 MENU Capability 



The MENU unit allows creation of menus so that end users need not understand 
the details and intricacies of the III.0 Operating System. Ihis unit is 
valuable for applications develc^jers in that it allows them to tailor the 
operating system to match the and user of the application. 

Ihree procedures comprise the MENU unit. 

MENUENABLE — > 

This procedure enables or "turns on" the menu capability. Ihat is, the 
program SYSTEM. MENU (this program is dev^oped by the applications 
prograimier) is executed. I’Bien SYSTEM. MENU is executed, the III.0 
Operating ^stan catinand prompt line does not appear. Ihe SYSTEM. MENU 
program controls the interface between the system and the aid user. The 
end leer, therefore, does not interface directly with the III.0 
Operating ^stan. 

MENUDISABLE — > 

This procedure disables or "turns off" menu capability. The normal 
II 1.0 Operating System cannand line appears. 

CHAIN — > 

This procedure ^lows one Enseal paxgram to progranmatically call 
another Pascal program. Et>r exarr^e, CHAIN ( 'Y.COEE* ) executed at the end 
of a program behaves as if it were interactively input fran the user to 
X(ecute Y. 
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This ferm of chaining viorks vdth or without menus. Ihe interaction 
^v.js •; >-> -i nvannc! v^oneps merus are enabled because 

SYSTEM. MENU is execute mtH a clmin cctnmand overrides the menu call 
for one execution of the chained program. 



I NOTE 1 



A call to chain terminates the calling program because 
it contains an EXIT call . 

The field to determine if menus are enabled or disabled is stored in 
SYSTEM. MISCINFO; the menus may be enabled/disabled by the SETUP program. 
(See Section 6.1.) 

The exampl <=> programs in Figure 7-19 illustrate SYSTEM. STAEdUP and 
SYSTEM. MEMJ acting in conjunction to create a user menu interface. 



program startip; 
uses menu; 
begin 

menuenable; { SYSTEM. STARTUP not needed if SETUP enabled menus in SYSCCM } 
end. 



program menu; 
uses menu; 
var ch ; char; 
begin 
repeat 

write ( 'A( system, B( system, T(erminate menus’ ); read(ch); writeln; 
until ch in [■A’,’a’,’B’,'b’,’T',’t']; 
case ch of 

'A', 'a'; chain( 'a.code' ); 

'B','b'; chain( 'b.code' ); 

'T ' , ' t ' : menudisable; 
end; 
end. 



Figure 7-19. Programs to Create User Menu Interface. 



Page 7-51 



7.5.4 KBDSTUFF Unit 



This unit allows the capability to create a cdnnand file. Up to 80 
characters may be placed in the typeahead queue by this unit; also, a 
keyboard ocrtinand file may be used to execute a program 1:^ a call fircm 
another program (chaining). 

Ihe UNIT KBDSTUFF provides a procedure vhose Pascal declaration is; 

PRCXEDURE KBDBATCH(FUNIT: INTEGER; KSIRING; STRING); 

A program may USE this UNIT by assigning interactive caiinands to KSIRING. 
Because a UCSD Pascal string cannot have artoedded carriage returns, the 
ASCII character is used to represent a carriage return in string input 
for keyboard oonnands. If any other norprintable character is to be 
inserted into a string, a character assigrment statement must be used. For 
example, the fid lowing program calls tlie editor and inserts the string 'ABC' 
at the start of the work file. 

program ccnttiar^editor; 
uses Ibdstuff; 
var s ; string; 
begin 

s := 'eiABOC'; { Last 'C is a space holder } 
s[6] := dhr(3); { ETX to terminate tlie insert } 
kbdbatch(l,s); 
end. 



Ihe fid lowing program calls KBDBATCH, passing a canmand string that calls the 
Filer, requests a display of the vd vines on line, lists the directories on 
the boot unit and on unit #5, and then asks vhat the work file is. 

program oamandfiler; 
uses WDdstuff; 
var s ; string; 
begin 

kbdbatch(l, ' fvl*~ 1#5~ w' ); 
end. 
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rTna i Tvi ng is p©x’fonri.0(3. Ijy tli0 SisLlcwiiiy ssnipL0 psro^irsiri \saiicli csDiit2.ins 0 
coTtrand string to execute a code file chainee.code on the boot disk; 

program chain; 
uses kbdstuff; 
var s : string; 
begin 

kbdbatch( 1 ^ ' x*chainee~ ' ) ; 
end. 



I NOTE 1 



This form of chaining must not be used vhen 
menus are enabled because SYSTEM. MEINU will be called. 
In order to perform chaining with menu capability, 
use the CHA.IN procedure in the MEl’JU unit. 



7.5.5 DELAYUNIT 



Ihis unit allows scheduled delays to be executed. Tne EELAYUNIT operating 
system support routines are loaded can! y on systems with 128K bytes of monory. 
Ihis unit consists of three procedures; (1) DELAY, \«hich allows the 
suspension of a task for a number of seconds; (2) TIME_OUr_DELAY, which 
allows a task to suspend itself for either a number of seconds or until a 
semajAiore has been signalled; (3) CA^OL_TIME_OUr, which is used to remove a 
pending time out vhen the semaphore parameter of TIME_OUr_DELAY has been 
signalled. In addition, the I^AYUNIT declares a type TMECBJECT, 
coordinates task that are waiting for d^ays or time out d^ays. The 
interface for the EELAYUNIT is as follows; 

type 

SQTiptr semaphore; 

timeofoject = record 

delay_sem ; 
timed_out ; 
time_outhi : 
time_outlo; 
time_link ; 
end; 

time_out_delay (seconds; integer; var delaynode ; timeotoject; 

var sem ; semaphore; var timeout ; boolean); 

delay (seconds : integer); 

cancel time out (var self ; timeobject); 



procedure 

procedure 

procedure 



senptr; {semaphore to signal to awaken} 
^boolean; {set true if timed out} 

integer; {time to be awakened} 

integer; {time to be awakened} 
timeofoject {points to next docknode} 
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The procedure DELAY suspends execution of the task requesting a delay for 
at least its SECCNDS parameter. If the system dock is running {for the 
dock to be running the field HAS CLOCK mast be set to TRUE and the field 
CLOCK \ALUE set to 3 or greater in the SYSTEM. MISCINFO file at system boot), 
the delay uses the dock to vake the task after the specified number of 
seconds have passed. Any other tasks are free to run vhile the subject 
task is suspended. 

Ihe procedure TIME_OUr_DEIAY allows a task to suspend execution fbr SBCCMDS 
or until SEM is signalled, whichever canes first. Ihe parameter EEIAYNOEE 
is set up as part of the call to TIME_OUr_DELAY. 

Ihe procedure CANCEniijriMEjDlJr is called if the semaphore parameter fbr 
TLME_OUr_EEIAY was signalled rather than a time out happening. If no time 
out happened, can cet ._ time_QUT must be called to remove the task frcm the 
pending time out. 

If no running dock exists, the delay is simulated by a count-down loop 
that uses the processor (as a very low priority task) during tlie eitire dday. 

These procedures my be called by as many tasks as desired and are accurate 
if the system dock is running. Ihe accuracy is determined by the tick 
rate of the dock and the number of carpeting higher priority tasks. 

Without a system dock, multiple ddays or time outs are not accurate 
because a task must wait for the ddays of other higher priority tasks to 
carpi ete as well as v^ait for its own ddays. 

Ihe program in Figure 7-20 is an exarrple of two tasks that v^it fbr 
character input or time out depending an user input. 
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program test; 
uses delayunit; 



procedure delay (seconds; integer); 

procedure time out delay (seconds; integer; var d^aynode : timeobject; 

var sem : semaphore; var timeout : boolean); 

procedure cancel time_out (var d^aynode : timectoject); 

*) 

var ch : char; 

havcharl ; senaphore; 

havchar2 : semaphore; 

process inchar; 
begin 
repeat 

read (ch); 
if ch <= 'Z ' 

then signal (havcharl ) 
el se signal (havchar2 ) 
until di = 
end; 

process one; 

var node : timectoject; 

timeout : boolean; 
begin 
repeat 

timeoutdel ay ( 5 , node , havcharl , timeout ) ; 
wait (havcharl); 
if timeout 

then writeln ('timeout 1') 
else cancel timeout (node) 
until ch = 
end; 



Figure 7-20. Exarrpie Program of DEIAYUNIT. (Page 1 of 2) 
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process twD; 

var node : timectoject; 

timeout : boolean; 
begin 
repeat 

timeoutdelay ( 5 , node/havchar2 , timeout ) ; 
wait (havchar2); 
if timeout 

then writeLn ('timeout 2') 
else cancel timeout (node) 
until ch = 
end; 

begin 

ch := ' '; 

seminit (havcharl,0); 
seminit (havchar2,0); 
start ( inchar, , 500 ) ; 
start (one, , 500 ) ; 
start ( twD, , 500 ) 
end. 



Figure 7-20. Exairpie Program of DEIAYUNIT. (Page 2 of 2) 




7.6 UCSD PASCAL El^ANCEMENTS 



This section is a sunmarY of the areas in vhich UCSD Pascal differs frcan 
Standard Pascal as veil as special enhancements offered by UCSD Enseal . The 
Standard Pascal referenced here is defined in Pascal User Manual And Report 
(2nd edition) by Kathleen Jensen and Niklaus Wlrth (Springer-Verlag, 1975). 
Many of the differences are in the areas of files and l/O. Some of the key 
differences from a prograrrming standpoint are in EOF, BOLN, READ, VJRITE, RESET, 
and REavRITE. 



7.6.1 Case Statements 



In Standard Pascal, if no lab^ is equal to the value of the case statorient 
selector, the result of the case statanent is undefined (Jensen and Wirth) . 

In UCSD Pascal, if no label matches the value of the case selector, the next 
statement executed is the statement following the case statement. An examfie 
is ^own in Figure 7-21. A semiedon is NOT permitted before the "END" of a 
case variant field declaration within a RBCOEID declaration. See Appendix F 
for revised syntax diagrams for < field list>. 



PROGRAM FALLTHRU; 

VAR I : INTEGER; 

BEGIN (*FALLTHRU*) 

I := 25; 

CASE I OF 

0 ; VMTEIUCi = 0'); 

1 ; V^RITELN('I = 1'); 
END(*CASE*); 

WRITELN ( 'NEITHER ' ) ; 

END (*FALLTHRU*). 



Figure 7-21. Example of Ibllthrough in a Case Statement. 
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7.6.2 Cjortmoits 



A cxitinent is any text that appears betv^^en the syrribdLs "(*" and "*)" or the 
syntooLs and Ooninents are ignored by the Cfcnpiler unless the first 

character of a carment is in vAiich case, the connent is interpreted to be 

a Carpiler ccntroL directive. Matching symbols must be used; they may not be 
mixed. This feature allows a user to nest corinents. For example; 

{ XCP := XCP + 1; (* NESTED CCMffilSrr *) } 

Ihe matching symbols are a pair of different syitbcls. Using the same pair 
for nesting results in a syntax error. 



7.6.3 Eynamic Memory Allocation 



In Standard Pascal, DISPOSE asks that storage occupied by one particular 
variable be released by the system for otlier uses. 

In UCSD Pascal, DISPOSE is not inplemented. Hov^ever, it can be approximated 
by a ccrribined use of the intrinsics MARK and REHEASE. 

Storage is allocated for variables by the standard procedure NEW in a stack- 
like structure called a 'heap". Ihe program in Figure 7-22 illustrates how 
MARK and RELEASE can be used to change the size of the heap. As NEW is used 
to create a new variable, the size of the heap is augmented by the size of the 
variable. When the variable is no longer needed, RELEASE resets the top-of- 
heap address that was set originally by MARK. 

A series of calls to NEW between calls to MARK and RELEASE result in the 
inmediate r^ease of storage occupied by several variables at RELEASE time. 



I NOTE I 



Because of the stack nature of the heap, memory used 
by a single item in the middle of the heap cannot be 
released. This deficiency is vhy MARK and RELEASE 
only approximate the function of DISPOSE. 

Careless use of I4ARK and RELEASE can lead to "dangling pointers" that point to 
areas of marory that are no logger a part of the defined heap i^ce. 
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PROGE?AM HEAPGHNG: 

TYPE STUDENT = 

RBCCKD 

NAME ; eVCKED ARRAY [0..10] OF GE^R; 
ID : INTEGER 
END; 

VAR S ; "STUDENT; (* MEANS POINTER*) 

HEAP : "INTEGER; 

BEGIN (*HEAPCHNG*) 

MARK(HEAP); 

NEW(S); 

S".NAME := 'SMITH, JOHN'; 

S".ID ;= 2656; 

RELEASE (HEAP ) ; 

END (*HEAPCHNG*). 



Figure 7-22. Using MARK and RELEASE to Change Heap Size. 
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7.6.4 BOF(F) 



When text file F is being used as an input file from the OCNSOLE device, to 
set BC^ to True, the user must type the EOF character. The system default EOF 
character is control -C. (To change the default character, see Section 6.1, 
SETUP. ) 

If F is dosed, ECF(F) returns True for any FILE F. If F is a file of 
type TEXT and BOF(F) is True, then EOIJSf(F) is also True. After a RESEr(F), 
EOF(F) is Bblse. If EOF(F) becones True (end-of-file is reached) during a 
GET(F) or READ(F), the data obtained is invalid. 

When a user program starts execution, the system autanatically performs a 
RESET on the predeclared files INPUT, OUTPUT, and KEYBOARD. 

The default file for EOF and EOLN is INPUT. 



7.6.5 EOIN(F) 



EOLN(F) is defined cxily if F is a text file. F is defined as a text file 
vhen the windcw variable F"' is of <type> CHAR. EOIN becones True after 
reading the end-of-line character carriage return <cr>. 



7.6.6 Files 



Several aspects of file handling are described below. These enhancements 
bring UUSD Enseal doser to the standard definition of the language. UCSD 
Pascal indudes untyped files that are not available to the Standard Pascal 
user. 



I WARNING I 



READS or WRITES to fdes of types other than TEXT or 
FILE CF CHAR may not be done. Instead, a (2?T or PUT 
must be done. 

INTERACTIVE FIIES 

The standard prededared files INPUT and OUTPUT are always defined 
as type INTERACTIVE and bdiave exactly as do files of type TEXT. 

All files other than INTEE^ACTIVE operate exactly as described in Jensen 
and Wirth, induding the functioning of EOF(F), EOIN(F) and RESETr(F). 
For more details concerning files of type INTERACTIVE, see Sections 
7.6.11 (READ and READLN) and 7.6.12 (RESET). 
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UNTYPED FILES 



Untyped fil es are unique to UCSD Efescal » An untyped -Fil e osn 1 d 0 
thought of as a file without a windcw variable to vhich all l/o 

TTinG!+' -i DT /'Y^LTOC'TVrN DT /'V^t^Tp Trrrc* i 7^-^-- — 

iai-ik^^x\LVLjnxy ai«L4. oiJOv^r>irvx\j.l£i / • I^Liy I il¥nD 0£ 

of blocks can be transferred using either BLOCKREAD or BLOCI^ITS. 
Ihese functions return the actual nurnber of blocks read or written. 
When untyped files are used, Gtrtpile option {$!-} should be specified, 
thus requiring that the function lORESULT and the number of blocks 
transferred be ^plicitly checked after each BIjOCKREAD or BOXK WRITE 
to detect any I/O errors. An example of a program that uses untyped 
files is shown in Figure 7-23. 



(*$!-*) 

PROGRAM FILEXAMP; 

VAR S,D ; FILE; 

BUF : PACKED ARRAYC0.. 511 3 OF QiAR; 

BLKN, BLKSTRAN : INTEGER; 
lOERR : BOOLEAN; 

BEGIN (*FIIEXAMP*); 
lOERR := FAIEE; 

RESET(S, 'FRCM.DATA'); 

RSVRITE(D, 'TO' ); 

BIKN := 0; 

BLKSTRAN ;= BLOCKREAD(S, BUF, 1, BLKN) ; 

WHILE (NOT ECF(S)) AND (lORESULT = 0) 

AND (NOT lOERR) AND (BLKSTRAN=1) DO 

BEGIN 

BLKSTRAN ;= BLOCKWRITE(D, BUF, 1, BLKN); 
lOERR := ((BIKSTRAN < 1) OR (lORESULT <> 0)); 
BLKN := BLKN + 1; 

BIKSTRAN ;= BLOCKREAD(S, BUF, 1, BLKN); 

END (*WHIIE*); 

CLOSE (D, LOCK); 

END (*FILEXAMP*). 



Figure 7-23. Exanple of Using Untyped Files. 
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RANDOM ACCESS OF FILES 



Individual records in a file can be accessed randcrnly by the 
intrinsic SEEK. Ihe two parameters for SEEK are the file identifier 
and an integer giving the record number to v\hich the windcw i^ould be 
moved. The first record of a structured file has the number 0. SEEK 
alv\?ays sets EOF and BOIN to False. Ihe subsequent GET or HJT sets 
these conditions as appropriate. Attempts to PUT records beyond 
the physical end-of-file sets EOF to True. 



7.6.7 GOTO and EXIT Statements 



The GOTO statemeit may not branch to a label that is not within the same 
block as the statement. Ihis limitation is not iirposed on the GOTO 
statement in Standard Pascal . Because of this limitation, the exanples on 
pages 31-32 of Jensen and Wirth do not ajply. 



InoteI 



The GOTO statement receives a syntax error during 
conpilation unless the {$G+) option is envied. 

EXIT is a UCSD extension statement. Its only parameter is the identifier 
of the procedure to be exited. Ihe EXIT statement was created because of 
the occasional need far a means to abort a ootplicated, and possibly deeply 
nested, series of procedure calls an encountering an error. EXIT (program) 
terminates execution of a program. 



I NOTE 1 



The use of an EXIT statement to exit a function can 
result in the function returning undefined values if 
no assignment is made to the function identifier prior 
to the execution of the EXIT statement. 



If the identifier in the EXIT statement is that of a recursive procedure, the 
most recent invocation of that procedure is EXITed. Upon EXIT, an 
implicit CXDSE(F) is done on local files that were opened during execution 
of the procedure being EXITed. An exanple of using EXIT is ^own in Figure 



7-24. 
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PRCX3RAM EXCTTEST; 

VAR S ; STRING; 

T . TKFnt?/'3?D • 

^ ■ JLL'l X XJ\JU_11.\ / 

PROCEDURE GALL; POK^ARD; 

PROCEDURE ERINT; 

BEGIN (*PRINT*) 

WRITEIJSr( '— > ' ) ; 

READUSr(S); 

E^RITELN(S); 

IF S[l] = ■*' THEN EXIT (GALL); 
WRITEIN( 'LEAVE PRINT’); 

END (*PRINT*); 

PROCEDURE GALL; 

BEGIN (*GALL*) 

PRINT; 

VVRITELNC LEAVE GALL'); 

END (*GALL*); 

PROCEIXJRE COUNT; 

BEGIN (*GOONr*) 

IF I <= 10 THEN GALL; 
WRITELN( 'LEAVE COUNT'); 

END (*GOUNT*); 

BEGIN (*EXITrEST*) 

I := 0; 

^^HILE NOT EC^ DO 
BEGIN 
I := I+l; 

COUNT; 

WRITELN; 

END (*WHILE*); 

END (*EXHTEST*) . 



Figure 7-24. Exanple of Using the EXIT Statement. 





7.6.8 Packed Variables 



Packed arrays and records, using packed variables as parameters, are 
described below. Ihese packed arrays and records do NOT use the procedures 
PACK and UNPACK. 

PACKED ARRAYS 

Ihe UCSD Pascal Compiler packs arrays if the ARRAY declaration 
is preceded by the word PACKED. For exartple: 

ARRAYC0..9] OF OmR; 

PACKED ARRAYC0..9] OF CHAR; 

The array in the first declaration occupies ten 16-bit words of 
memory, with each element occupying one word. The array in the 
second declaration is packed into a total of five words, because 
each 16-bit word contains two 8-bit characters. Thus, each element 
is eight bits long. 

Examples of packed arrays that are not of type CHAR are given in 
Figure 7-25. 



PROO^ PACKTST; 

VAR A; PACKED ARRAY [0..9] OF 0..25S; {5 words of matory} 

{allocated. } 

B; PACKED ARRAY [0..15] OF BOOLEAN; (l word} 

C; PACKED RECORD 

D; BOOLEAN; (5 words for V\R C} 

CASE E: BOOLEAN OF 
TRUE: (F: INTEGER); 

FAI5E: (G; PACKED ARRAY [0..7] OF CHAR) 

END; 

BEGIN 

END. 



Figure 7-25. Examples of Packed Arrays and Records. 



Because of the recursive nature of the Compiler, the following two 
declarations are not equivalent; 

PACKED ARRAYC0..9] OF ARRAY[0..3] OF CHAR; 

PACKED ARRAY[0. . 9, 0. . 3] OF CHAR; 
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In the first deciLaration# the second occurrmce of ARRAY causes 
packing in the Qcnp'iler to be turned off; giving an uipacked 
array of 40 words. Ihe array in the second declaration occiroies a 
total of 20 words because ARRAY aj^ars caily once. If the second 
occurrence of ARRAY in the first declaration had also been preceded 
by PACKED, the two declarations would have been equivalent. 

An array will be packed cnly if the final type of array is scalar, 
subrange, or a set that can be represented in eight bits or less or 
if the final type is BOOLEAN or CHAR. No packing is done if the 
array cannot be expressed in a field of eight bits. 

No packing occurs across word boundaries. If the type of element to 
be packed requires a number of bits that does not divide evenly by 
16, unused bits are at the high end of each of the words that 
comprise the array. 



I NOTE I 



Assigning a string constant to an unpacked ARRAY OF 
CHAR is illegal, although it my be assigned to a 
PACKED ARRAY OF CHAR. Also, comparisons between an 
ARRAY OF Cc5^ and a string constant are illegal . These 
restrictions are because of size differences. 

A PACKED ARRAY OF CHAR may be output with a single V'fftlTE statement 
and my be initialized by using the intrinsics FILLCHAR and SIZEOF. 



PACKED RECORDS 

As with arrays, the Gorpiler packs records if the RECORD declaration 
is preceded by PACKED. In the example below, the entire record is 
packed into one 16-bit word. 

VAR A: PACKED RECOID 

Q,R,S; 0..31; 

B; BOOLEAN 
END; 

The variables Q, R, and S each take up five bits. The Boolean 
variable is allocated to the sixteenth bit. 

PACKED RECORDS may contain fields that also are packed, either arrays 
or records. But PACKED must occur before every occurrence of RECORD 
to retain packed qualities throughout all fields of the record. 



Page 7-65 




A case variant may oily be used as the last field of a packed or 
unpacked record. Ihe amount of space allocated to it is the size of 
the largest variant amcrig the cases. 

PACK AND UNPACK 

UCSD Pascal does NOT support the standard procedures PACK and UNPACK 
(Jensen and Wirth, 106). 



7.6.9 Parametric Procedures and Functions 



UCSD Pascal does NOT support the use of procedures and functions as formal 
parameters in the parameter list of a procedure or function. 



7.6.10 Program Headings 



A list of file parameters may fdLlow the program identifier. Howaver, they 
are ignored by the Ccnpiler and have no effect on the program being ocmpiled 
Any file declarations other than the three predeclared files (INPUT, OUTPUT, 
and KEYBOARD) of type INTERACTIVE must be declared along with the other VAR 
declarations for the program. 



7.6.11 READ and READLN 



In Standard Pascal, the procedure READ requires that the window variable 
be loaded with the first diaracter of the file v\hen the file is opened. 
If effect, the statonent READ(F,CH) vould be equivalent to: 

CH: =F"; 

GET(F); 
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To be responsive to the danands of an interactive prograinning aivironment, 

UCSD Enseal defines the additional file type INTERACTIVE. Declaring a file to 
be of type ESTTERACTIVE is equivalent to declaring it to be type TEXT, except 
that the definition of READ(F,CH) is reversed: 

GET(F); 

CH: =F"; 

The standard definition of the procedure READ requires that the process of 
opening a file include loading the windew variable F"^ with the first 
character of the file. In an interactive environment, it is inconvenient to 
require a user to type a character of the input file \shen it is open to avoid 
the program "hanging" v\hen it is first opened. Tb overceme this, UCSD Ehscal 
has reversed the order. This differoice affects the way in vhich EOLN must be 

used vhen reading from a text file of the type INTERACTIVE. BOIN only becomes 

true after reading the end-of-line character, a <retum>. The character 
returned as a result of the READ is a blank. 

Three predeclared text files (INPUT, OUTPUT, and KEYBOARD) of type INTER- 
ACTIVE are c^Dened automatically for a user program. The file INPUT defaults 
to the console device. The statement READ(INPUT,CH), l^here CH is a character 
variable, echoes the character typed from the console back to the console. 

WRITE statements to the file OUTPUT cause the output to appear on the 

console, by defeult. The file KEYBOARD is the nonechoing equivalent to 
INPUT. For exanpLe, the following two statements are equivalent to 
READ ( INPUT, CH) ; 

READ (KEYBOARD, CH); 

WRITE (OUTPUT, CH); 
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7.6.12 KESEViF) 



In Standard Pascal, the procedure RESET resets the file window to the 
beginning of file F. The next GET(F) or PUT(F) affects record 0 of the file. 
Also, the window variable F^ is loaded with the first record of the file. 

In UCSD Enseal, the standard conventions hold true unless the file is of type 
INTERACTIVE. In that case, the window variable is NDT loaded. Thus, the UCSD 
equivalent of the Standard RESET (F) for a file of type interactive is the two- 
statement sequence: 

RESET (F); 

GET(F); 

UCSD Pascal also provides an alternative form of caning a pre-existing file. 
In it, RESET has two parameters; the file identifier followed by either a 
string constant or variable, vyhichever corresponds to the directory file name 
of the file being reopened. 

ExanpLes; 

S := 'NAI'IE.TEXT'; 

RESET(F, S); {Opens NAME. TEXT on the prefixed vdime} 

RESET(F, 'REMOTE: ' ); {Allows input to and output fran} 

{REMOTE, (serial port B) } 

WRITELN(F, 'This is the remote terminal ' ); 



7.6.13 REWRITE(F,S) 



REMIITE opens and creates a new file. It has two parameters: the file 
identifier fiollcwed by either a string constant or variable, giving 
the title of the file being created. The file name may include a block size 
specification. (See 7.2.2, REWRITE.) 



7.6.14 Segment Procedures 



The SECMENT E510CEDORE is a UOSD extension to Pascal . With it, the programner 
can segment a large program so that the entire program need not be in 
memory at once. Ebr further information, see Section 7.3, Segments. 



Page 7-68 




7.6.15 



S0uS 



All of the Standard Pascal constructs for sets are supported lay UCSD Pascal . 

^ .Qoea 'o. .TtanedM Ta/i rS-Vi \ Qq-tc! iaK»nmc»v“ai- i Tral noe avo 1 -! m-i +-/^ 

positive integers only. Also, a set is limited to 255 words and 4080 
elanents. Ootparisons and cperations are allo^sed cxily between sets that are 
either of the same base type or subranges of the same underlying type. 

Exartples are i^own in Figure 7-26. 



PR0C3?AM SETTST; 

VAR SETl: SET CF 0..49; 

SET2: SET CF 0. .99; 

BEGIN (*SETST*) 

SETl := [0,5,10]; 

SET2 ;= [10,20,30]; 

IF SETl = SET2 TEiEN 

WRITEIN( 'THEY ARE EQUAL' ) 

EI5E 

VJPxITELN( 'THEY ARE NOT EQUAL'); 

END(*SETST*) . 

Sets of different underlying types cannot be ccmpared: 

PROGRAM SETCOMP; 

TYPE INGREDIENTS = (FIDUR, SUGAR, EGGS , SALT ) ; 

VAR I: SET CF INGREDIENTS; 

N: SET CF 0..49; 

BEGIN (*SETCCMP*) 

I := [FLOUR]; 

N ;= [1,2, 3,4, 5]; 

IF I = N THEN < SYNTAX ERROR E-CCLL OCCUR HERE 

WRITEIN( 'EQUAL* ); 

END (*SETCCMP*). 



Figure 7-26. ExanpiLes of Set Corrparisons . 



Page 7-69 





7.6.16 Strings 



STRING variables are unique to UCSD Pascal . Essentially, they are PACKED 
ARRAYS of CH?^ with a dynamic lEISKJrH attribute, the value of vhich is returned 
by the string intrinsic LENGTH. The default maximum length of a string 
vari^le is 80 characters. This value can be overridden in the declaration of 
a string by appending the desired length within [] after the type identifier 
STRING. Ebr further information and exairpiles, see Section 7.2.3, String 
Intrinsics. 

A string variable has an absolute maximum length of 255 characters. Assign- 
ment to string variables can be performed using the assignment statonent, 
using UCSD string intrinsics, or using a READ statement. For exan^e; 

TITLE: = ' THIS IS MY SIRING 
REACtN (MYSTRING ) ; 

NAME ; = COPY (MYSTRING, 1 , 21 ) ; 

The individual characters within a string are indexed frora 1 to the length of 
the string. A string variable may not be indexed beyond its current dynamic 
length; otherwise, a run-time error is generated. 

String variables may be corpared (=, <>, >, <, >=, <==) to other string 
variables, no matter v^hat the current dynamic length of either. If the 
lengths of two strings being oaipared are unequal, the diorter string is 
extended to the length of the longer by appending blante. Ctmparison is 
based on the ASCII collating sequence. 

A cannon use of string variables in UCSD Pascal is reading file names fron 
the console device. Vten a string variable is used as a parameter to READ or 
REAEOSr, all characters up to the a:id-of-line character (carriage return) in 
the source file are assigned to tlie string variable. In reading string 
variables, the single statement READIN(S1,S2) is equivalent to the two- 
statement sequence: 

READ(Sl); 

REAIXN(S2); 



Page 7-70 




n ^ 1 n 

I • O* j. / 



V^RITS and V'/RITELiT 



The procedures ^'JRITE and WRITEIN follcw the conventions of Standard Pascal 

-io/i +-/^ is T7ia>“-i aVkl d r^-P RTlOTfi’AKr, TlfCin Pa rVy^G HQ''" 

support the output of the vords TRUE or FALSE vhen writing out the value of a 
Boolean variable. In order to write out Bodean values, the CRD function 
must be used. 

For writing variables of type STRING, see Section 7.2.3, String Intrinsics. 
When a string variable is written without speci:fying a field width, the actual 
niiriber of characters written is equal to the dynamic length of the string. If 
the field width specified is longer than the (^narnic length, leading blanks 
are inserted. If the field width is smaller, excess characters are 
truncated on the right. 



7.6.18 InpLementation Size Limits 



The rnaximun size limitations of UCSD fiscal are i^own below. 

• Maximum nutiber of bytes of object code in a procedure or function 

is 1200. ^feximum number of words for local variables in a 

procedure or function is 32676. 

• ]ybximun nun±>er of characters in a string varid>le is 255. 

• lyfeximum number of elenents in a set is 255 * 16 = 4080. 

• Maximum number of user segments available is 128 (numbered 

128. .255). Nine system segments (1, 8. .15) are also available 
for user programs. 

• l^feximum nunber of procedures or functions within a segment is 255. 

• Maximum niirber of bytes in a segment is 65535. 



7.6.19 Extended Oarparisons 



UCSD Pascal permits = and <> comparisons of any array or record structure. 
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7.6.20 Data Types for Concurrency 



Three data types for concurroicy are available. See Section 1 ,1 , A Con- 
currency Prirnatives and Interrupts for more information. 

PROCESS lype 

A process declaration creates a task that may run concurroitly with other 
tasks in the system. A task is invoked by the ST?^T statonent. Ihe 
process declaration is syntactically similar to the procedure declaration 
with the word "procedure" being replaced by "process". 

Example: 

PROCESS CONTROLL£R(TEMP, PRESSURE: REAL); 

VAR T : DSTTEGER; 

BEGIN 



PROCESSID lype 

A processid is a pointer to a Task Information Block (TIB) . See Section 
7.7.3 Registers and Operating System 1^1 es for a description of the TIB. 
The ST?\RT statement has as one of its parameters a variable of type 
processid. 

Example: 

VAR PID : PROCESSID; 

SEMAPHC»E lype 

A semaphore is a synchronization primitive that provides synchronization 
betweoi tasks and detection of hardware interripts with the functions 
SIGNAL, WAIT, ATTACH, and SEMINIT. Ihe internal structure of a soria- 
phore is described in Section 7.7.4 Concurrenty Primitives and Interrupts. 

Exan^e: 

VAR SEM : SEMAPHORE; 
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PrograiTming Exan^es 



/ • o • 



This section gives pfODgranming exanples ficr three subject areas; (1) absolute 
mejnory locations i 



i T ir\. 



lr\ J. 






Absolute Memory Locations 



Referencing absolute msmory locations on the 1600 Series Qarputer Sys- 
tems is performed through Pascal variant records. A variant record 
specifies that twD different variables with possibly different types may 
occupy the same ironory location. 



I NOTE I 



Absolute addressing is very powerful, and the 
system operating tables or code can be corripted 
by improper usage. Because the 1600 series con^uters 
have mapped l/O, the l/O control registers and 
drivers can be addressed and, thus, could be easily 
corrupted . 

Figure 7-27 is a program that accesses an absolute memory address interactively. 
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PROGSE^ EXAMINE 7 



TYPE MEMRBC = RBCXMD 

MEMCELL ; INTEGER 
END; 



VAR MEMmRIANT : RB0C31D CASE BOOLEAN OF 

TRUE ; (MEMAED : INTEGER); 
FALSE : (MEMCaSTTS : "MEMRBC); 
END; 



I : INTEGEK ; 



BEGIN 

WRITE (' ENTER ABSOLUTE ADKIESS '); 

REAOJ^J (i); 

MEMVARIANT.MEMADD :=I; 

WRITELN (' CONTENTS OF M/ = MEMVARIANT.MEMCQNTS" .MEMCELL) ; 
END. 

{if an address of a MicroEngine I/O port vvere entered, the porogram would 
return the contents of the l/O port register.} 

Figure 7-27. Program to Access Absolute Memory Address. 



I/O Drivers 



The I/O controller registers can be referenced by absolute memory accessing. 
Ihe three programs given reference noninternpt and interrupt l/o drivers. 

Figure 7-28 shows a program that outputs characters to the console by using 
variant records. Ihe program writes to the serial port using a declared pro- 
cedure unitwrite. 



I NOTE I 



This form of l/O driver may only be run on 
noninternpt operating systems (releases prior 
to H0). 
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fkOjkAM bHiKlALTiiibT; 



TYPE 

SmTCMDEC = RBCmD CASE BOOLEAN OF 
TRUE ; (CXM1AND : Lt^TEGER); 

FMEE : (STATUS ; PACKED ARRAY[0, , 7] OF BOOLEAN); 

END; (* For devices that use same reg for stat and and*) 

SERIALREC = RECOID 

SERDATA : INTEGER; 

STATSYNDLE : STATCMDREC; 

COnITROL2 : INTEGER; 

COTTROLl : INTEGER 

FILLER : ARRAY[0..3] OF INTEGER; 

SWITCH : SIATCMCREC; 

END; 

VAR 

SERIALTRIX : RECORD CASE INTEGER CF 

0 ; (ra:VADD : INTEGER) ; 

1 ; (SERIAL : "SERIAIEEC) ; 

END; 

PROCEDURE SUNIIWRITE (CH: CHAR); 

BEGIN 

WITH SERIALTRIX DO 
BEGIN 

DEmDD ;^1008; (* FC10 *) 

WITH SERIAL" DO 
BEGIN 

CCNTROLl :=135; (*87 HEX *) 

COSTTROLl :=1; (* 01 *) 

REPEAT 

UNTIL STATSYNIX^. STATUS [0]; 

SERDATA ; = ORD (CH) ; 

END; 

END; 

END; 

BEGIN 

SINITWRITE ('h'); SLNITWRITE ( 'i'); 

END. 

Figure 7-28. Nbninterrr^jt l/O Driver-Referenced by Absolute Memory Address. 
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Figures 7-29 and 7-30 show exaiiipLes of programs that are interrupt driven 
l/O drivers ty use of variant records. Figure 7-29 is a program for OONSOLE:, 
and Figure 7-30, for REMOTE; . 



I NOTE I 



This form of l/O driver may only be run on interrijpt 
operating systems (r^ease H0 and greater) . 



{ This program is an exarrple of a serial port A receiver internet driver } 

PROGRAM test; 
type 

men[Ttrix= record case boolean of 
true; (addr; integer); 
false ;(loc; ^integer); 
end; 

statandrec = record case boolean of 

true ; (oonnand : integer); 

false ; (status ; packed array[0..7] of boolean); 
end; { for devices that use same reg for stat and and } 

whole = 0. .maxint; 

serial rec = record 

data ; integer; 
statsyndle : statandrec; 
control 2 ; integer; 
contrail : integer; 
filler ; integer; 
switch : statandrec; 
filler2 ; array [0..1] of integer; 
switch2 : statandrec; 
end; 

Figure 7-29. Intern:^ l/O Driver - Referaiced by Absolute Memory Address. 
(CONSOLE; ) (Page 1 of 2) 



Page 7-76 






var 



i: integer; 

1 statijs : statcmdrec ; 

serial trix : record case bodean of 

true : (sdevadd ; integer); 
false : (serial : ^serialrec); 
end; 

Imem; mantrix; 
s er Ainteont s s rnantr xx ; 
saveaint : integer; 
sersera : sanaphore; 

PRCX^ESS serread; 

BEGIN 

REPEAT 

wait(sersan) ; 

i : = serial trix . serial ^ . data ; 

Iman.loc"' := 1; 
write(chr(i) ); 

{ Seme terminals set the high order bit so add 128 } 

UNTIL (i = ord('q')) or (i = ord('Q')) or U = 209) or (i = 241); 
serAintconts.loc^ := saveaint; { Restore OS driver } 

END; {serread} 

BEGIN 

linan.addr := -952; { Re-enable interru 5 >t address } 
serial trix. sdevadd := -1008; { Serial port a device address } 
with serial trix, serial^ do 
begin control 1 ;= 133; control 2 ;= 1; end; 
serAintconts .addr ;= 36; 

saveaint := serAintconts .loc^; { Save OS driver internet sanaphore } 
seminit ( ser sem, 0 ) ; attach ( sersera, 36 ) ; 
start ( serread ) ; 

END. 

Figure 7-29. Interrupt l/O Driver - Referenced by Absolute Memory Address. 
(CCNSOLE;) (Page 2 of 2) 
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{ This program is an example of interrupt driven l/O drivers for the 
remote port. These drivers handle serial input, outtput, and carrier 
detect interrupts. In addition, an output driver for the oonsde 
is illustrated. 

} 

PROGSRAM test; 
type 

memtrix= record case boolean of 
true: (addr: integer); 
false; (loc: ^integer); 
end; 

statcmdrec = record case boolean of 

true ; (cormand : integer); 

false ; (status ; packed array[0..7] of boolean); 
end; { for devices that use same reg for stat and and } 
serial rec = record 

data : integer; 
statsyndle ; statcmdrec; 
control 2 ; integer; 
control 1 ; integer; 
filler : integer; 
switch ; statcmdrec; 
filler2 ; array [0..1] of integer; 
switch2 ; statcmdrec; 
end; 

var 

j,i: integer; 
ch; char; 

1 status; statcmdrec; 
r serial trix ; record case boolean of 

true ; (sdevadd ; integer); 
false : (serial ; ^serial rec); 
end; 

cserialtrix ; record case boolean of 

true : (sdevadd ; integer); 
false ; (serial ; ^serial rec); 
end; 

en^letrix; memtrix; 

cwriteson,rwritesem,xcptsem,rreadsera ; semaphore; 

Figure 7-30. Interrupt l/O Driver - Referenced by Absolute Manory Mdress. 
(RIMOTE: ) (Page 1 of 3) 
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procedure rserwrite(dharo: integer); 
begin 

r serial tr ix e serial ^ » data, i = charo ; 
r serial trix . serial = control 1 : = 135; 
wait ( rwritesem) ; 

repeat until rser ial trix. serial^.statsyndle. status [5]; 
r serial trix . serial ^ . control 1 : = 133; 
enabletrix.loc^ := 1; 
end; 

procedure cserwrite( charo: integer); 
begin 

cser ial trix . serial . data : = charo ; 
cserial trix . serial ^ . control 1 : = 135; 
wait (cwritesem); 

cser ial trix. serial^, contrail := 133; 
enabletrix.loc^ := 1; 
end; 



PRCXIESS serxcpt; 

BEGIN 

REPEAT 

wait(xcptsem) ; 

1 status := rserialtrix.serial^.statsyndle; 
enafoletrix.loc^ := 1; 

UNTIL false; 

END; {serxcpt} 

Figure 7-30. Interri:pt l/O Driver - Referenced Absolute r'fertory Address. 
(REMOTE: ) (Page 2 of 3) 



PROCESS serread; 

BEGIN 

REPEAT 

wait ( rreadsem) ; 

r serialtrix. serial^. control 1 := 129; 
i := rserialtrix. serial^. data; 
enabletrix.loc'" ;= 1; 
cserwrite(i); 

r serialtrix. serial^. control 1 := 133; 

UNTIL false; 

END; {serread} 

BEGIN 

enabletrix.addr := -952; 

rserialtrix.sdevadd := -992; cserialtrix.sdevadd := -1008; 
SQmjiit(rreadsem,0); seminit(xcptsem,0); seminit (rwritesem,0); 
seminit ( cwr itesem, 0 ) ; 

attache rreadsem, 44); attach( xeptsem, 52 ) ; attach(rwritesom,40); 
attach ( cwritesem, 48 ) ; 
start ( serread ) ; start. ( serxept ) ; 
for j ;= 1 to 10 do 
begin 

ch := 'a'; 
for i := 1 to 26 do 
begin 

rserwrite(ord(ch) ) ; 
ch := succ(ch); 
end; 

end; 

END. 



Figure 7-30. Interrupt I/O Driver - Referenced by i4>soLute Memory Mdress. 
(REyiOTE: ) (Page 3 of 3) 





Directory Access 



A diskette is coi^sed of granules called blocks. Each block contains 512 
bytes. A single-sided; single-density diskette contains 494 blocks nurrbsr^ 
frcm 0 - 493. A double-sided, dcxibl e-density diskette contains 1,976 blocks. 

The directory for a diskette resides on block numbers 2—5 (occi:pies 4 disk 
blocks). If a dL 5 )licate directory exists, it resides on blocks 6-9. Arrong 
other things, the directory contains the name of the diskette, the name of 
each file on the diskette, information concerning the starting and ending 
block for each file, and the date of creation of each file. 

Figure 7-31 shows the Pascal declaration for a directory. This declaration is 
identical to the one in the operating ^tem globals. In addition, a Pascal 
program fragment that reads the date stored in the directory is illustrated. 
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DATE31BC = PACKED BEOOBD 
MONTH; 0. .12; 

DAY; 0. .31; 

YEAR; 0..100; 

END; 

DIREWTRY = RECOID 

DFIRS'IBLK; INTEGER, {First fiiysical disk addr} 
DIASIBIK; INTEGER, {Points at block following} 

CASE DFKIND; FILEKIND CP 
SBCUREDIR, 

ONTYPEFILE; {only in dir [0] . . . volijne info] 

(DVID; VID; 

DEOVBLK; INTEGER, {Lastblk of vdLune} 

DNLMFILES; DIRRANGE; {Num files in dir} 

DLQADTIME; INTEGER; {Time of last access} 

DIASTBOOT; EATERBC); {Most recent date setting} 

XDSKFIIE, GQCEFIIE, TEXTFILE, INFOFILE, 

DATAFILE, GRAFFIIE, POTCFIIE; 

(DTID; TID; 

DIASTBYTE; 1. .FBLE<SIZE; {Num bytes in last block} 
DACCESSzDA'IEREC) {Last modification date} 

END (Direntry} ; 

DIRP = "DIRBCTCHY; 

DIRECTCHY = ARRAY [DIRRANGE] OF DIRENTRY; 



{The fial laving pirogram fragment reads the directory fron disk drive #4} 
VAR GDIRP; DIRP; 

BEGIN 

NEW (ODIRP); 

UNITREAD (4, GDIRP", SIZBOF (DIRECTORY) , 2); 

{After this read from disk of the directory, the fields in the directory 
may be examined. For exartple, to access the date on the diskette;} 

WITH GDIRP" [0].IXAS'IBOOT DO 

WRTTELN ('TODAY IS', MOSTTH, '/', DAY '/',^!EAR); 

Figure 7-31. Directory Access. 




APPENDIX A. 



CX1>^1AND SIX^»5ARIE1S 



A. 1 Outer Level Operating System 

• ^ j.mu^a ilOxuL^i. 

A. 3 Line-Oriented Editor 

A. 4 File Handler 

A. 5 Pascal Ccnpiler 



A. 1 OUTER LEVEL 



C(ctrp 

E(dit 

eX(ecute 

F(iLer 

L(ink 

R(un 



D(efc>ug 

I(nitialize 

H(alt 

A(da 

U(ser restart 



Invokes the system Gcnpiler. 

Invokes the system Editor (Screen-Oriented Editor or 
Yet Another Line-Oriented Editor) . 

Executes a code file. 

Invokes the File Handler. 

Invokes the Linker. 

Executes the code file associated with the current work file. 
If none exists, the Gcmpiler is autcmatically called, followed 
by the Linker, if necessary, before execution. 

Invokes the Debugger. If no code file exists, the Compiler is 
autcmatically called, followed hy the Linker, if necessary. 
Reinitializes the system. 

Halts the machine. Reboot is required. 

Invokes the MicroAdaClM) compiler. 

I^executes program or option last used. 



A. 2 SCREEN-ORIENTED EDITOR 



<dcwn-arrow> 

<Lp-arrow> 

<right-arrow> 

<left-arrow> 

<space> 

<back-space> 

<tab> 

<retum> 

II ^ II II II II II 
11^ II II II II. II 

^ • I 



moves <repeat-factor> lines dc^sn 

" line? up 

" " spaces right 

" spaces left 

" spaces in direction 

" " spaces left 

moves <repeat-factor> tab positions in direction 

moves to the beginning of line <repeat-factor> lines in 
direction. 

changes direction bo backward 

changes direction to forward 

moves to the beginning of data that were just 

found/ replaced/ inserted/ adjusted 



A(djust 

Adjusts the indentation of the line oi v^ich the 
cursor is located. Use the arrow keys to move. Moving ip 
(or down) adjusts line above (or below) by same amount of 
adjustment as current line. Repeat factors are valid. 
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C(opy 



Copies information that v»as last inserted/deleted/ zapped 
into the file at the position of the cursor. 



D(elete 



F(ind 



I(nsert 



J(utp 



M(argin 



P(age 



Q(uit 



R(eplace 



S(et 



V(erify 



Deletes data using the starting position of the cursor as 
the anchor. Use any moving ccrntiands to move the cursor. 

<etx> accepts deletion; everything between the cursor and the 
anchor is dieted. 



Operates in L(iteral or T(oken mode. Finds the <targ> 
string. Repeat factors are valid; direction is applied. 
"S" uses the same string just previously used. 



Inserts text. Can use <backspace> and <del> to reject part 
of your insertion. 



Jui^ to the inning, end, or previously set marker. 



Adjusts anything between two blank lines to the margins 
that are set. Coranand characters protect text from being 
margined. Invalidates the ccpy buffer. 



Moves the cursor cane page in direction. Repeat fectors are 
valid; direction is apjiied. 



Leaves the Editor. Options are to U)pdate, E)xit, W)rite, 
or R)etum. 



Operates in L(iteral or T(oken mode. Replaces the <targ> 
string with the <subs> string. V(erify option asks you to 
verify before it replaces. "S" option uses the same string 
as just previously used. Repeat fectors replace the 
target several times. Direction is valid. 



Sets M(arkers by assigning a string name to them. Sets 
E(nvironnent for A{ uto-indent, F(illing, margins, T(oken, 
and C(cninand characters. 



Redisplays the screen with the cursor centered. 
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eX( change 

Exchanges the current text for the text typed vhile in this 
mode. Each line must be done separately. <tack-space> 
causes the original character to reappear. 

Z(ap 

Treats the starting position of the last thing 
found/ replaced/ inserted /adjusted as an anchor and deletes 
everything between the anchor and the current cursor 
position. 



< repeat- factor > 

Is any number t^^ped before a cotmand. Typing a / inplies 
an infinite number. 



A. 3 IcyiDE (Yet Another Line-Oriented Editor) 



n - an argument m - macro number 



nA; Advance the cursor to the beginning of the nth line from the current 
position. 

B: Go to the beginning of the file. 

nC: Change by deleting n characters and inserting the following text. 

Terminate text with <esc>. 
nD: Delete n characters. 

E: Erase the screen. 

nF; Find the nth occurrence from the current cursor position of the 
following string. Terminate target string with <esc>. 
nG: Get - add FIND text except leave GET 

H; - invalid cormand - 

I: Insert the following text. Terminate text with <esc>. 

nJ: Junp cursor n characters. 

nK: Kill n lines of text. If current cursor position is not at the start 

of the line, the first part of the line remains. 
nL; List n lines of text. 

mM; Define macro number m. 

htshi: Perform macro number m, n times. 

nO: On, off toggle. If on, n lines of text are displayed above and 

below the cursor each time the cursor is moved. If the cursor is in 
the middle of a line, then the line is split into two parts. 

The default is whatever fills the screen. Type O to turn off. 

P: - invalid ccrrmand - 

Q: Quit this session, followed by; 

U:(pdate Write out a new SYSTEM. WE?K. TEXT 

E ; ( scape Escape from session 

R;(etum Return to editor 

R: Read this file into buffer (insert at cursor); 

'R' must be followed by <file name> <esc>; 
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I VmRNING I 



If the file does not fit into the buffer, the content 
of the buffer becxxties undefined! 

nS: Put the next n lines of text fram the cursor position into the Save 

Buffer. 

T: - invalid ociiinand - 

U: Insert ( Unsave) the contents of the Save Buffer into the text at 

the cursor; does not destroy the Save Buffer. 

V; Veri:fy: display the current line 

W: Write this file (from start of buffer); 

'W' must be followed by <file name> <esc> 
nX; Delete n lines of text, and insert the following text; terminate 
with <esc> 

Y: - invalid ocmmand - 

Z; - invalid cannand - 



B(ad-blks 

C(hange 

D(ate 

E(xt-dir 

G(et 

K(runch 

L(dir 

M(ake 
N(ew 
P( refix 
Q(uit 



A. 4 FILE mNDLER 

Scans the disk and detects bad blocks, listing the number of 
each. 

Qianges file or vdiine name. 

Lists current system date and enables user to change date; 
format is dd-mtm-yy. 

Lists the directory in more detail than the L(dir coitmand. 

Loads the designated file into the work file. 

Moves the files on the specified volume so that unused blocks 
are combined at the end of the disk; disk files only. 

Lists a disk directory, or subset of one, to the volime and 
file specified; default is OCWSOLE;. 

Creates a directory entry with the specified filename. 

dears the work file. 

Qianges the current defeult volume to the volume specified. 
Rsturns control to the Outer Level of cannands. 
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K(em 
S ( 3.VS 
T(i3ns 

V(qLs 

W(hat 

X(amine 

Z(ero 

G 

I 

L 

Q 

R 



Removes file entries from the directory. 

^aves the work file under the specified file name* 

Clopres (transfers} the specrfiect file to the specitxed 
destination volume. 

Lists the volumes currently cxi-line along with their 
corresponding device numbers. 

Identifies the file nane and state (saved or not) of the v/Drk 
file. 

Atterrpts to recover bad blocks physically; a bad-block scan 
should be done first. 

Reformats the specif ieid volume and makes the dd directory 
irretr ievabl e . 



A. 5 PASCAL CCMPILER 



Affects v^hether the ccrrpiler allows the use of the 
Pascal GOTO statenent in the program. Default is not 

allowed. 

\^en followed by a ' + causes the Ganpiler to generate code 
after any l/O statement to check for successful completion of 
l/O. This setting is the default. 

When followed by a inhibits l/O checking. 

When followed by a file name, includes another source file 
into the corpilation. 

Causes the Oonpiler to generate a listing of the source 
program on. a specified file. If a ' + ' is used, the default 
file is *SYSTEM. LEST. TEXT. Ihe default is vhich 

produces no listing. 

"Quiet compile" option is used to suppress output to 
the CCNSOLiE of the procedure names and line numbers during 
ccirpilation. The default is set to the current value of 
SYSCCM" .MISCINFO. Sia^-TERM . 

Affects vhether tlie Compiler inserts code for checking an 
array subscripts and assignments to variables of subrange 
types. The default is ' + *; therefore, code for checking 
is inserted. 
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s 



Causes the Ocrnpiler to operate in swapping node so that only 
one of the two main parts of the Gcrr 5 >iler (declarations proces- 
sor or statement handler) is in nain memory at one time, 
freeing about 2500 words for symbol table storage. The 
default is vhich means that no swapping occurs. 

U Determine whether the compilation is of a user program or a 

system program. The default is ' + which means a user 
program. 

When followed by a file name, U names the library file to be 
used. 
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APPENDIX 3 : T ART 



UH A rr\A 

J>N«xUX l_ t. JJ ^ 

l/O Results 

Pascal Ccrrpiler Syntax Errors 
IMit Nintoers 



B.l RUN-TIME ERRORS 



Version 3.0 

0 System error 

1 Invalid index, value out of range 

2 No segment, bad code file 

3 Procedure not present at exit time 

4 Stack overflow 

5 Integer overflow 

6 Divide by zero 

7 Invalid memory reference <bus timed out> 

8 User Break 

9 System l/O 

10 User l/O 

11 Uniti^i emented instruction 

12 Floating Point mth error 

13 String too long 

14 Halt, Breakpoint (without debugger in core) 

All fetal errors either cause the system to rdxotstrap, or if the error 
was totally lethal to the system, the user must reboot by pressing the 
reset buttton. All errors cause the system to reinitialize itself 
(call system procedure INITIALIZE). 



FATAL 



FATAL 



B.2 

B.3 

B.4 
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B.2 I/O RESULTS 



Version 3.0 

0 No error 

Bad EOLock, Parity error (CRC) 

Bad Unit Number 
Bad Mode, Illegal operation 
Undefined hardware error 
Lost mit. Unit is no loiger cxi-line 
Lost £LLe, File is no Icaiger in directory 
Bad title. Illegal file name 
No room, insufficient space 
No unit. No such vdLume on line 

10 No file. No such file on vdLume 

11 Duplicate file 

12 Not dosed, attoipt bo open an open file 

13 Not c^Jen, attaipt to access a dosed file 

14 Bad format, error in reading real or integer 

15 Volume write protected 
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B.3 



PASCAL CCMPILER SYNTAX ERRORS 



Version 3.0 



1: Error in sinple type 

2; Identifier expected 

3 : ' PRCXSRAyi ' expected 

4: ' ) ' esqsected 

5: ' esq^ected 

6; Illegal ^iribQl 

7: Error in parameter list 

8; 'OF' expected 

9 : ' ( ' expected 

10; Error in type 

11: expected 

12; ']' e^^jected 

13; *END' ej^Dected 

14; ' expected 

15: Integer expected 

16; '=' expected 

17; 'BEGIN' expected 

18; Error in declaration part 

19; Error in <field“list> 

20; ' . ' expected 

21 ; ' * ' expected 

22; ' Inter face ' expected 

23; ' InpL eraenta tion ' expected 

24; ' Unit ' ejected 

50; Error in constant 

51; ':=' expected 

52; 'THEN' expected 

53; 'UNTIL' expected 

54; 'DO' expected 

55; 'TO' or 'DCXVNTO' expected in for statement 

56; 'IF' ejq^ected 

57: 'FILE' expected 

58; Error in <factor> (bad expression) 

59; Error in variable 

60: Must be semaphore 

61; Must be processid 
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101: Identifier declared twice 

102: lew bound exceeds high bound 

103: Idoitifier is not of the appropriate dass 

104: Undeclared identifier 

105: Sign not allowed 

106: Number expected 

107: Inccmpatible subrange types 

108: File not allowed here 

109: Type must not be real 

110: <tagfield> type must be scalar or subrange 

111: Incaipatible with <tagfield> part 

112: Index type must not be real 

113: Index type must be a scalar or a subrange 

114: Base type must not be real 

115: Base type must be a scalar or a subrange 

116: Error in type of standard procedure parameter 

117: Unsatisfied forward reference 

118: Forward reference type identifier in variable declaration 

119: Respecified params not OK for a forward declared procedure 

120: Function result type must be scalar, subrange or pointer 

121: File value parameter not allcwsd 

122: A result type of the forward declared function can't be respecified 

123: riissing result type in function declaration 

124: F-format for reals only 

125: Error in type of standard function parameter 

126; Number of parameters does not agree with declaration 

127; Illegal parameter substitution 

128; Result type does not agree with declaration 

129; lype conflict of operands 

130; Ejqjression is not of set type 

131; Tests c*i equality allows only 

132; Strict inclusion not allCM^ 

133; File oenparison not alleged 

134; Illegal type of operand(s) 

135; Type of operand must be Boolean 

136; Set element type must be scalar or subrange 
137; Set element types must be ocnpatible 
138; lype of variable is not array 

139; Index type is not corpatible with the declaration 

140; Type of variable is not record 

141; Type of variable must be file or pointer 

142; Illegal parameter substitution 

143; Illegal type of loop control variable 

144; Illegal type of expression 

145; lype conflict 

146; Assignment of files not allowed 

147; Label type inccmpatible with selecting expression 

148; Subrange bounds must be scalar 

149; Index type must be integer 

150; Assignment to standard function is not allowed 
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151: Assignment to formal function is not allowed 

152; Nd such field in this record 

153: Type error in read 

154: Actual parameter must be a variable 

155: Control variable cannot be formal or nonlocal 

156; Multidefined case lab^ 

157; Too many cases in case statement 

158: No such variant in this record 

159; ifeal or string tagfields not allowed 

160; Previous declaration was not forward 

161; Again forward declared 

162; Parameter size must be constant 

163; Missing variant* in declaration 

164: Substitution of standard proc/func not allowed 

165: Multidefined label 

166; Mul tided ared label 

167; liidedared label 

168: Undefined labd 

169: Error in base set 

170; Value parameter expected 

171; Standard file was redeclared 

172; Uhdedared external file 

174; Pascal function or procedure expected 

175; Semajhore value parameter not allowed 

182; Nested units not allowed 

183; External dedaration not allowed at this nesting level 

184; External dedaration not allowed in interface section 

185; Segment dedaration not allowed in unit 

186; Labds not allowed in interface section 

187; Attenpt to open library unsuccessful 

188: Uiit not dedared in previous uses dedaration 

189; 'Uses' not allows at this nesting level 

190: Uiit not in library 

191; Nd private files 

192; 'Uses' must be in interface section 
193; Not enough room for this operation 
194: Gonment must appear at top of program 

195; Oiit not iirportable 

196; Must use IDNGINT unit 
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201: Error in real number - digit expected 

202: String constant must not exceed source line 

203: Integer constant exceeds range 

204: 8 or 9 in octal number 

250: Too itany scopes of nested identifiers 

251: Too many nested proedures or functions 

252: Too many for\\ard references of procedure entries 

253: Procedure too Icxig 

254: Too many long ccxistants in this procedure 

256: Too rrany external references 

257: Too many externals 

258: Too irany local files 

259: Expression too cotplicated 

300: Division by zero 

301: No case provided for this value 

302: Index expression out of bounds 

303: Vhlue to be assigned is out of bounds 

304: Element expression out of range 

398: IrapLementation restriction 

399: IragpLenoitation restriction 

400: Illegal character in text 

401: Unesqpected end of input 

402: Error in writing code file, not enough rocm 

403: Error in reading include file 

404: Error in writing list file, not enough rocm 

405: Call not allowed in s^arate procedure 

406: Include file not legal 

407: l/O error in handling linker refs 
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B.4 


UNIT NLMBEE^ 




Version 3.0 


NIMBER 


VDLLME NAME 


0 


<€npty> 


1 


CONSOLE 


2 


SYSTEFM 


4 


Blocked Voliine 


5 


Blocked Volume 


6 


PRINTER 


7 


RCONSl 


8 


REMOTE < serial port B> 


9-14 


Blocked Volumes 


15 


RC0NS2 


16 


RTERM2 


17 


RC0NS3 


18 


RTERM3 


19 


RC0NS4 


20 


RTERM4 


21 


BCCm5 


22 


RTERM5 


23 


RCOSfS6 


24 


RTEBM6 


25 


RCCNS7 


26 


RTERM7 


27 


PRINTRl 


28. .25 


Winchester disk blocked volumes 
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APPEaSTDIX C: P-MACHINE CPCDDES AND OPERATOR EXECUTION TIMES 



This appendix presents tables of P^mchine opcodes and operator execution 
times. Table C-1 presents the opcodes, and Table C-2 presents the operator 
execution times. Tbble C-3 lists the P~codes in a Pascal -like netalanguage. 

C-1. P-MACHINE OPCODES 



Instructions are one byte long, foLlowed by zero-to-three parameters. Most 

parameters specify one vord of information and are one of five basic types. 

UB Lfrisigned byte: high-order byte of parameter is implicitly zero. 

SB Signed byte: high-order byte is sign extension of bit 7. 

DB Don't care byte: can be treated as SB or UB, because the value is 

always in the range 0..127. 

B Big: this parameter is cxie byte long v\^en used to represent values in the 
range 0..127 and is two bytes when representing values in the range 
128.. 32767. If the first byte is in the 0. .127 range, the high byte of the 
parameter is inpLicitly zero. Otherwise, bit 7 of the first byte is 
cleared and is used as the high order byte of the parameter. The second 
byte is used as the lew-order byte. 

W Vford; the next two bytes (low byte first) are the parameter value. 

These imononics are intended cxily fur further understanding of P-code. 

Neither the Western- Digital Corpora-tion nor the University of California at 

San Diego provide P-code assent)! er software. 
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Table C-1. P-^chine OpcxDdes. 





Instruction 




Mnemonic 


Code 


E^ameters 


Description 






Constant One Iferd Loads 


SLDC 


0..31 




Short Load Word Constant (Value 0--31). 
Pushes the opcode, with high byte 
zero, canto the stack. 


LDCN 


152 




Load Constant Nil (PC00). Pushes ml 
onto the stack. 


LDCB 


128 


UB 


Load Constant E^e. Pushes UB, with 
high byte zero, onto the stack. 


LDCI 


129 


W 


Load Constant Word. Pushes W onto 
the stack. 


LCA 


130 


B 


Load Constant Address. Pushes the word 
address of the constant, with offset B 
in the constant wnrd block, onto the 
stack. 






Local One \ferd 


Loads and Store 


SLCL1..16 


32.. 47 




Short Load Local Word. Fetches the 
word with offset 1. .16 in the local 
activation record and pui^es it can 
the stack. 


LDL 


135 


B 


Load Local Vford. Fetches the word with 
offset B in the local activation record 
and pushes it can the stack. 


LLA 


132 


B 


Load Local Address. Fetches address of 
the word with offset B in the local 
activation record and pushes it can the 
stack. 


STL 


164 


B 


Store Local . Stores Tos into the word 
with offset B in the local activation 
record. 
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Mnoncxiic 

SUX)1. 

LDO 

lAO 

SRO 



LOD 

LDA. 

STR 

STO 



Table C-1. P-Machine erodes. (Cbntinued) 
Instruction 

C3ode J^ameters Description 

Glctoal One Wbrd Loads and Store 



16 48.. 63 



133 



134 



165 



Short Load GLcbal Word. Fetches the 
word with offset 1 . . 16 in the base 
activation record and pushes it on the 
stack. 

B Load GLdoal Word. Fetches the word 

with offset B in the base activation 
record and pushes it on the stack. 

B Load Ga.obal Address. Pushes the word 

address of the \,^Drd with offset B in 
the base activation record. 

B Store G3.doal Word. Stores Tos into the 

word with offset B in the base 
activation record. 



Intermediate One-Word Loads and Store 



137 



136 

166 



EB,B Load Intermediate Word. EB indicates 

the number of static links to traverse 
to find the activation record to use. 

B is the offset within the activation 
record. 

EB,B Load Intermediate Address. 

EB,B Store Intermediate Vford. 



Indirect One-Word Loads and Store 



196 



Store Indirect. Tos is stored into the 
word pointed to by Tos-1. 
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Table C-1. P-Machine Opccxies. (Continued) 



Instruction 

Mnononic Code I^rameters Description 



Extended One-Word Loads and Store 



Lra; 


154 


UB,B 


Load Word Extended. Fetches the word 
with offset B in segment number UB 
and pushes it on the stack. 


LAE 


155 


UB,B 


load Address Extended. 


STE 


217 


UB,B 


Store Word Extended. 




Multiple Word 


Loads 


and Stores (Sets and Reals) 



LDC 131 



LCM 208 



SIM 142 



B,UB Load Multiple Word Constant. B is the 
offset within the constant word block, 
and UB is the number of words bo load. 
Fiish the block onto the stack. 

UB Load Multiple Words. Tbs is a pointer 
to the beginning of a block of UB words 
Push the block onto the stack. 

UB Store Multiple l-fords. Tos is a block 

UB words, lbs-1 is a word pointer to 
a similar block. Transfer the block 
from the stack to the destination 
block. 



Byte Arrays 



LDB 167 



Load Byte. Push the byte (after 
zeroing high byte) pointed to by byte 
pointer Tos. 



STB 



200 



Store Byte. Store byte Tos into the 
location specified by Byte Pointer 
Tos-1. 



Table C-1. P-^^chine Opcodes. (Continued) 



Mnanonic 


Instruction 

Code 


E^ameters 


Description 




Record 


and Array Indexing and Assignment 


MOV 


197 


B 


I'love Iferds. Tos is a source pointer 
to a block of B wrds, Tos-1 is a 
destination pointer to a similar block. 
Transfer the block frail the source to 
the destination. 


SIND0. .7 


120. .127 




Short Index and Load Vford. Indexes 
the wDrd pointer Tbs by 0. .7 words, 
and pushes the word pointed to by 
the result. 


IND 


230 


B 


Static Index and Load ^^rd. Index 
the word pointer Tos by B words, and 
push the word pointed to. 


INC 


231 


B 


Increment Field Pointer. Ihe word 
pointer Tos is indexed by B words and 
the resultant pointer is pushed. 


im 


215 


B 


Index Array. Tos is an integer index, 
Tos-1 is the array base word pointer, 
and B is the size (in words) of an 
array elenent. A word pointer to the 
indexed element is pushed. 


IXP 


216 


UB1,UB2 


Index Packed Array. Tos is an integer 
index, Tos-1 is the array base word 
pointer. UBl is the number of 
elements-per-word, and UB2 is the 
field-width (in bits). Corpute and 
push a packed field pointer. 


LDP 


201 




Load A Packed Field. Push the field 
described by the packed field pointer, 
Tos. 


STP 


202 




Store Into A Evoked Field. Tos is the 
data, Tos-1 is a packed field pointer. 
Store Tos into the field described 
by Tos-1. 
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Table C-1. P-Machine Opcodes. (Continued) 



Mnenonic 


Instruction 

Code 


Parameters Description 






Logical s 


LAND 


161 


Logical AND. AND Tos into Tos-1. 


LOR 


160 


Logical OR. OR lbs into Tos-1. 


LNOT 


229 


Logical ISDT.Take one's ccraplement of Tos. 


BNOT 


159 


Boolean NOT. 


LEUSW 


180 


Gcnpare Unsigned \iJbrd <=. Ootrpare 
unsigned word of Ibs-l to unsigned 
wcrd of Tos and push true or false. 


GEUSV^ 


181 


Gorrpare Unsigned Wbrd >=. Gcnpare 
unsigned word of Ibs-l to unsigned 
vord of lbs and push true or felse. 






Integers 


ABI 


224 


Absolute Value of Integer. Ibke 
absolute value of integer Tos. 


NGI 


225 


Negate Integer. Ibke the two's 
ccn^ement of Tos. 


DUPl 


226 


Copy Integer. Explicate one word 
on Tos. 


ADI 


162 


Add Integers. Add Tos and Ibs-l. 


SBI 


163 


Subtract Integers. Subtract Tos fron 
Ibs-l . 


MPI 


140 


Multiply Integers. Multiply lbs and 
Tos-1. 


DVI 


141 


Divide Integers. Divide Ibs-l by 
Tbs and push quotient. 


MODI 


143 


Modulo Integers. Divide Tos-1 by lbs 
and push the remainder. 
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Table C-1. P-Machine Opcodes. (Continued) 
Instruction 

Mnemonic Code E^ameters Description 

Integers (Continued) 



CHK 


203 


Check Against Subrange Bounds. Insure 
that Tos-1 < = Tos-2 < = Tos, leaving 
Tos-2 on the stack. If conditions are 
not satisfied a run-time error occurs. 


EOJI 


176 


Compare Integer =. Ccaipare Tos-1 to 
Tos and push true or felse. 


NEQI 


177 


Ccnpare Integer <>. Cctrpare Tos-1 to 
to Tos and push true or false. 


LEQI 


178 


Cciripare Integer <=. Compare Tos-1 to 
to Tos and push true or felse. 


GEQI 


179 


Compare Integer >==. Conpare Tos-1 to 
to Tos and push true or felse. 




Reals 


(All Over/Under flows Chuse a Run-Time Error) 


FLT 


204 


Bloat Top-of-Stack. The integer Tos 
is converted to a floating point 
number. 


TNC 


190 


Truncate Real . The real Tos is 
truncated and converted to an integer. 
A run-time error results if the real 
is outside of permissible integer 
values. 


RND 


191 


Round Real . The real Tos is rounded 
and converted to an integer. A run- 
time error results if the real is 
outside of permissible integer 
values. 
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Table C-1. P-Machine OpcxDdes. (Continued) 



Mnoioiic 


Instruction 

Code 


I^ameters Description 


Reals (All Over/Under flows Cbuse a Run-tiine Error) (Continued) 


ABR 


227 


Absolute Value of Real. Take the 
absolute value of the real Tos. 


NCR 


228 


Negate Real . Negate the Real Tos . 


DUP2 


198 


Copy Real . Dupl icate tvro words cai 
Tos. 


Am 


192 


Add Reals. Add Tos and Tos-1. 


SBR 


193 


^tract Reals. Subtract Tos frcm 
Tos-1. 


MPR 


194 


Multiply Reals. Multiply Tos and 
Tos-1. 


DVR 


195 


Divide Reals. Divide Tos-1 by Tos. 


EQUREAL 


205 


Cotrpare Real =. Ccrtpare Tos-1 to Tos 
and push true or false. 


LEC3REAL 


206 


Cornpare Real <=. Ccirpare Tos-1 to Tos 
and push true or felse. 


GECEEAL 


207 


Ccrtpare Real >=. Ccrrpare Tos-1 to Tos 
and push true or felse. 






Sets 


ADJ 


199 


UB Adjust Set. Ihe set Tos is forced to 

occupy UB words, either by expansion 
(putting zeroes 'Toetween" Tos and 
Tos-1) or ccmpression (chopping of 
high words of set), and its length 
word is discarded. 
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T^le C-1 



P-f!aGhine Opcodes. ( Continued ) 



Mnemonic 


Instruction 

Code 


E^ameters Description 


SRS 


188 




Build Subrange Set. Ihe integers Tos 
and Tbs-1 are checked to insure that 
0<^Tos<=4079 and 0<=Tos-l<=4079, 
otherwise a run-time error occurs. The 
set [Tos-l. .Tosj is pushed. (The set 
C ] is pushed if lbs-1 > Tos . ) 


INN 


218 




Set Meiribership. See if integer Tos-1 
is in set Tos, pushing true or felse. 


UNI 


219 




Set tfriion. The union of sets Tos and 
Tos-1 is pushed. (Tos or Tos-1.) 


INT 


220 




Set Intersection. The intersection of 
sets Tos and Tos-1 is pushed. (Tos 
and Tos-1 . ) 


DIF 


221 




Set Difference. The difference of sets 
Tos-1 and Tos is pushed. (Tos-1 and 
not Tos.) 


EQUPWR 


182 




Set Ocmpare =. 


LECSTO 


183 




Set Ocmpare <= (Subset of). 


GECWR 


184 




Set Gcnpare >= (Superset of) . 








^rte Arrays 


EQUBYT 


185 


B 


Byte Array Ocmpare =. 


LECBYT 


186 


B 


Byte Array Ocmpare <=. 


GEQBYT 


187 


B 


Byte Array Ocmpare >=. 
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Table 


C-1. P-Machine Opcodes. (Continued) 


Mnemcaiic 


Instruction 

Code 


E^rameters Description 








Junps 


UJP 


138 


SB 


Uhconditional Juirp. Jump to location 
with offset SB from the current 
location. 


FJP 


212 


SB 


E^se Junp. Junp to location with 
offset SB fran the current location 
if Tcs is felse. 


EFJ 


210 


SB 


Equal False Jurtp. Junp to location 
with offset SB from the current 
location if integer Tos <> Tos-1. 


NFJ 


211 


SB 


Not Equal False Jurtp. Jump to location 
with offset SB fran the current 
location if integer Tos = Tos-1. 


UJPL 


139 


W 


Unconditional Long Junp. Junp 
unconditionally to location with offset 
W from the current location. 


FJPL 


213 


W 


False Long Junp. Jump to location with 
offset W from the current location if 
Tos is feilse. 


XJP 


214 


B 


Case Jump. Ihe word with offset B 
in the constant word block is Wl, the 
minimum index of the Case Table. The 
word with offset B+1 in the constant 
word block is W2, the rraximum index of 
the Case Table. The Case Table starts 
in location with offset B+2 in the 
constant word block and has a length 
of VJ2-W1+1 words. 








Tos is an index. If tos is in the 
range of W1..W2, then fetch the 
contents of the location with tos 
index in the Case Table and jump to 
the location with this offset from 
the current location. 
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Table C- 


“1 - P"^fe.Ghme Opcodes • { Continued ) 


Mnemonic 


Instruction 

Code 


Parameters 


Description 




Procedure and Function Calls and Returns 


CPL 


144 


UB 


Call Local Procedure. Call procedure 
UB, vMch is an inmediate child of the 
currently executing procedure and in 
the same segment. Static link of MSCW 
is set to dd MP. 


CPG 


145 


UB 


Call GLcbal Procedure. Call procedure 
UB, vhich is at the outer most lex 
level and in the same segment. The 
static link of the MSCW is set to base. 


CPI 


146 


DB,UB 


call Intermediate Procedure. Call 
procedure UB, v\hich is at lex level IB 
less than the currently executing 
procedure and in the same segment. Use 
that activation record's static link 
as the static link of the new MSCW. 


CXL 


147 


UB1,UB2 


Call Local External Procedure. Call 
procedure UB2 vhich is an imnediate 
child of the currently executing 
procedure and in the segment UBl. 




148 


UB1,UB2 


Call GLcbal External Procedure. Call 
procedure UB2 vhich is at the outer 
most lex level and in the segment UBl. 


CXI 


149 


UB1,IB,UB2 


Call Intermediate External Procedure. 
Call procedure UB2 vhich is at lex 
level EB less than the currently 
executing procedure, and in the segment 
UBl. 


CPF 


151 




Call Formal Procedure. lbs contains 
segment number and procedure number and 
Tos-1 ccaitains static link for the 
called procedure. 
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Table C-1. PHMachine Opcodes. (Continued) 
Instruction 

Mnemonic Obde E^arneters Description 

Procedure and Function Calls and Returns (Continued) 



RPU 


150 


B Iteturn Frcm User Procedure. Static 

link is discarded, MP is reset from 
MSDYN, IPC is also reset frcm MSIPC. 

If segment number is not zero, segment 
pointer is set from segment dictionary, 
Stack pointer is decremented by B. 


IBL 


153 


EB Load Static Link Onto Stack. CB 

indicates the number of static links 
to traverse to get the static link to 
load. 






System Control 


SIGN7VL 


222 


Signal . Tos is a semaphore aJdress . 
Signal this semaphore. 


mrr 


223 


wait on Semaphore. Tos is a semaphore 
address. Wait on this sonaphore. 


LPR 


157 


Load Processor Register. Tos is a 
register #. (If it is positive it is 
one of the TIB registers. If not -1 
is the curr^t task pointer, -2 is the 
segment dictionary pointer and -3 is 
the ready queue pointer.) Load 
ccaitents of this register on top of 
stack. 


SPR 


209 


Store Processor Register. Tos-1 is a 
register number (same definition as 
LPR). Store Tos in this register. 
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Table C-1. P-Machine Opcodes. (Continued) 



Mnetncnic 


Instruction 

Code 


E^cflneters Description 






D^ugger 


BPT 


158 


Break Point. 


RBP 


159 


B iteturn Fran Breakpoint* Ihis acts 

like an RPU operator. The stack 
pointer is decremented by B. 






Misc^laneous 


NOP 


156 


No Operation. 


SWAP 


189 


&vap vvord Top-of-Stack with WDrd 
Top-of-Stack-l . 



Page C-1 3 







THIS E?^GE IS USTTENTIOI^yiLY I£FT BLANK FOR FCRMATTIl^ PURPOSES. 



Page C-14 




C-2. PASCAL MICRCXM5INE OPEE?ATCR EXECUTION TIMES 



Table C-2 presents the execution time of all 3.0 P-code operators. Any 
P-code operator is made ip of several operations. Any one of these operat- 
ions voiild normally be considered as one machine-language operator on a non- 
staclc machine. Therefore/ P— code operator timings are not comparable to 
nonstack-machine-operator timings. 

The operators are grouped by operation. The left-hand coLumn contains the 
P-code mnemonic, follov«d by the 8-bit opcode for that P-code. Next, the 
P-code parameters zero to three are given. All execution times are in 
microseconds and were measured on an ME1600 running at 2.5 rrihz. 

Many of the P-code execution times are data dependent. For this table, 
the best and worst times are listed vdth connents describing how the 
values relate to the operands of the instruction. Eor some P-codes, the exec- 
ution time between the best and worst is equally probable, depending cxi 
the execution environment. However, for some of these data-dependent P-codes, 
the execution times near the best case values are more probable than those 
of the vyorst case. For exairple, all operators that require static link trav- 
ersal (LDD, LCA, SIR, CPI, CXI, and LSL) traverse one-to-four links. In feet, 
conpiler enforced restrictions disallow traversals of more than eight links. 
Thus, the worst case execution time for any of those P-codes, vhile theoretic- 
ally possible, can never occur. 

Under the mnemonic for each P-code is a notational description of the 
P-machine stack both before and after the execution of the P-code. A stack 
status description consists of a single pair of enclosing brackets ([]). The 
stack status on the left side of the oolcxi represents the status prior to 
execution of the P-code, vhile the stack status on right of the colon rep- 
resents the status follawing the execution of the P-code. Within the brackets, 
the stack grows from left to right, with individual operands seperated by 
caimas. Operands within stack status descriptions are of the fcllcwing types: 

activation 

addr 

bool 



byte-ptr 



- a block of four, 16-bit words representing the record 
of activation of a procedure or function (MSCW) . 

- a 16-bit word address. 

- a 16-bit value representing a Pascal BOOIEAN. The 
Icw^rder bit signifies the Boolean value, all 
other bits are 0. A value of 0 represents EALSE; 
a value of 1 represents TRUE. 

- two, 16-bit values representing the address of 
an 8-bit byte. 
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func-result - 



int 

nil 

pack-ptr 



param - 

real 

seg#/prcx:# - 

set 

VADrd 

v\?ord-hLock - 



either 1 or 2 16-bit values representing the 
result of a function left cn the stack vhen 
returning fron a function. No wards are left on 
return from a procedure, 
a 16-bit twa's complement Pascal INTEGER, 
a 16-bit value representing a NIL pascal pointer, 
a "packed field pointer": three, 16-bit values 
defining the address of field of a packed 
variable. Ihe values, from highest ta lowest 
stack position, are 1) the rightinost bit # of 
the packed field, 2) the field width in bits and 
3) the address of the ward containing the field, 
a block of 16-bit wards representing the values 
of the parameters being passed ta a procedure or 
function. 

twa, 16-bit valiies representing a Pascal REMj. One 
value contains the sign, exponent and high-order 
mantissa bits,’ the other value contains the low^ 
order mantissa bits. 

a 16-bit ward containing 2, 8-bit bytes. The high 
byte is the segment number; the low byte, the 
procedure number of a procedure or function being 
invoked via P-code CPF. 

a block of 1..256, 16-bit wards representing a 
Pascal SET. The highest ward in the set defines 
the number of wards in the block of wards below, 
a 16-bit value. 

a block of 2.. 255, 16-bit wards. 



All P-code parameters are cxie of five basic types : 

UB - "Unsigned byte" : value in the range 0. .255, high-order 

byte is iir^icitly zero. 

SB - "Signed byte" ; value in the range -128.. 127, high-order 
byte is irrplicitly sign extension of bit 7. 

DB - "Don't c^e byte" : value in the range 0..127, high-order 

byte is iirpLicitly 0. 

B - "Big" : one byte long vhen used to represent values in 

the range 0..127; twa bytes long vhen used to represent 
values in the range 128. ,32767. If the first byte is Ln 
the range 0..127, the high byte is inplicitly 0. Other- 
wise, bit 7 of the first byte is cleared, and the first 
byte is used as the high-order byte of the parameter. 

The second byte is used as the lew-order byte. 

W - "Alford" : two-byte value in the range 0.. 32 76 7. The first 

byte is used as the lew byte of the parameter. 
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Table C-2. 


Operator Execution Times. 


Mnoronic 


CJxxjue 


I^ameters Tiine 










Constant Qne-4^rd Loads 


SLDC0. . 31 
CD : [vyiord] 


0..31 




2.8 


LDCN 

[] : 


[nil] 


152 




6.4 


LDCB 
[] : 


[word] 


128 


UB 


5.6 


LDCI 
□ : 


[wcrd] 


129 


W 


8.4 


LGA 

[] : 


Caddr] 


130 


B 


8.0 



Local Qne-lVord Loads and Stores 



SLDL1..16 
[] s [v^rd] 


32.. 47 




6.4 


LDL 

[] : [vord] 


135 


B 


9.6 


IIA 

[] : [addr] 


132 


B 


7.6 


1 — 1 
1 1 

.. 

i § 

W L-J 


164 


B 


9.6 



Kanarks 
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Remarks 



Table C-2. Curator Execution Times. (Continued) 



Mnemonic CjxxDde Parameters Time 



Global One-Word Loads and Stores 



suxa. .16 

[] : [word] 


48.. 63 




7.2 






LDO 

[] : [word] 


133 


B 


10.0 






lAO 

[] : [addr] 


134 


B 


8.0 






SRO 

[word] : [] 


165 


B 


13.2 










Intermediate One-Word Loads and Stores 




LOD 

[] : [word] 


137 


IB, B 


17.2 to 423.6 


17.2 


+ 3.2(DB) . 


LEA 

[] : [addr] 


136 


IB, B 


15.2 to 421.6 


15.2 


+ 3.2(DB) . 


1 — 1 
1 1 

.. 

1 — 1 


166 


IB, B 


16.8 to 423.2 


16.8 


+ 3.2(DB) . 






Indirect One-Word Loads and 


Stores 




STO 

[addr, word] 


196 
: [] 




8.0 
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Table C-2. Curator Execution Times. (Continued) 
Mnemonic C^ode E^ameters Time 



Extended One-liforxi Loads and Stores 



LDE 

[] : [ward] 


154 


UB, 


B 


26.8 


LAE 

[] : [addr] 


155 


UB, 


B 


24.8 


STE 

[ward] ; [] 


217 


UB, 


B 


26.0 



Multiple-Word Loads and Stores (Sets and Reals) 

18.0 to 1038.0 18.0 + 4.0(UB) 

10.4 to 1540.4 10.4 + 6.0(UB) 

12.4 to 1532.4 12.4 + 6.0(UB) 

Byte Arrays 

12.0 

13.6 



LDC 131 B, UB 

[] : [vord-bLock] 

LEM 208 UB 

Caddr] : [ward-block] 

STM 142 UB 

[ward-block, addr] : [] 



LDB 167 

[byte-ptr] ; [ward] 

STB 200 

[byte-ptr, ward] : [] 
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Table C-2. Curator Execution Times. (Continued) 

Mnemonic CJxxde E^ameters Time Remarks 

Record and Array Indexing and Assignment 



MOV 197 B 13.2 to 196615.2 13.2 + 6.0(B). 

[addr,addr] ; [] 

SIND0..7 120. .127 8.4 

[addr] : [word] 

IND 230 B 12.4 

[addr] ; [wDrd] 

INC 231 B 9.6 

[addr] : [addr] 

IXA 215 B 9. 6 to 56.8 9.6 is best case time 

[addr, word] ; [addr] (index (TOS) is 0), 

time increases v\hen 
index exceeds B. Wbrst 
case time (56.8) arrives 
with array element size 
(B) of 16384. 



Times indicated are for 
indices (TOS) in the 1st 
word of the array. Values 
in parenthesis indicate 
index range for yhich the 
corresponding time is 
cbtained. ALL times are 
73.6 larger if index is 
not in 1st word. 



LDP 201 


18.4 to 50.4 


18.4 + 


[pack-ptr] : [word] 




2.0(fieldwidth) + 
2.0 (right bit #) 


STP 202 


20.4 to 64.4 


20.4 + 


[pack-ptr, word] : [] 




2.0(fieldwidth) + 
2. 8 (right bit #) 



IXP 216 UBl, UB2 

[addr,word] ; [pack-ptr] 

Elements per WDrd Best time Wbrst time 

3 27.6(0) 37.2(2) 

4 27.6(0) 38.8(3) 

5 27.6(0) 39.6(4) 

8 27.6(0) 38.0(3.. 7) 

16 27.6(0) 35. 6(2.. 15) 
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Table C-2. Operator Execution Times. (Continued) 



Mnemonic CJxxxJe ^rameters Time 



Logical s 



LAND 


161 


8.0 






[word, word] 


: [wDrd] 








LOR 


160 


8.0 






[word, word] 


: [word] 








mOT 


229 


5.2 






[wDrd] ; [wDid] 








BNOT 


159 


6.0 






[bool] : [bool] 








LEUSW 


180 


9.6 1 


1 10.4 


TRUE 


[vyord ,word] 


: [bool] 








GEUSW 


181 


9.6 1 


1 10.4 


TRUE 


[word, word] 


: [bool] 









Remarks 



i FAISE 
FALSE 
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Remarks 



Table C-2. Curator Execution Times. (C3ontinued) 



Mnenoiic C^xxxJe I^ameters Time 



Integers 



ABI 224 

[int] : [int] 


4.8 1 


6.0 




pos parm I neg pam 


NGI 225 

[int] : [int] 


5.2 








DUPl 226 

[ward] ; [word, word] 


5.2 








ADI 

[int, int] ; 


162 

[int] 


8.0 








SBI 

[int, int] : 


163 

[int] 


8.0 








MPI 

[int, int] : 


140 

[int] 


5.2 to 35.2 




Best case (5.2) is 
n * 0, worst case is 
~i * -j v^^ere i, j are 
large values. Typical 
time will be around 28. 


DVI 

[int, int] ; 


141 

[int] 


8.4 j 


89.2 1 


91.2 


0 div i 1 
positive result I 
negative result. 


MODI 

[int, int] ; 


143 

[int] 


9.2 1 


89.2 1 


92.8 


0 mod i 1 

positive result I 
negative result. 


CEiK 203 

[int, int, int] ; [int] 


14.4 








Eoai 

[int, int] : 


176 

[booL] 


9.6 I 


10.4 




TRUE I FALSE 


NEQI 

[int, int] : 


177 

[bod] 


9.6 1 


10.4 




TRUE 1 FALSE 


LEQI 

[int, int] ; 


178 

[bod] 


10.4 


1 11.2 




TRUE ! FAI5E 


GEQI 

[int, int] : 


179 

[bool] 


10.4 


1 11.2 




TRUE 1 FALSE 
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Table C-2. Operator Execution Times. (Continued) 



Mnaiomc Ci>L.Tjdt: r^Tcimeters Time Kemarks 



Reals 



10.8 I 14.8 to 46.8 TOS = 0 ! 

TOS <> 0 : 

44.8 - 

2.0(trunc(lg(^s(TOS) ) ) ) + C. 
C = 2.0 if TOS < 0 
C = 0.0 otherwise. 

12.4 I TOS = 0.0 I 

15.6 I 0.0 < abs(TOS) < 0.5 | 

50.0 to 50.8 I 0.5 <= abs(TOS) < 1.0 ; 

50.0 + C I 

24.0 to 48.8 abs(TOS) >= 1.0 : 

48.0 - 

0.8(trunc(lg(abs(TOS) ) ) ) + C. 
C = 0.8 if TOS <0.0, 

C = 0.0 otherwise. 

12.4 I TOS = 0.0 I 

15.6 I 0.0 < abs(TOS) < 0.5 | 

52.4 to 53.2 I 0.5 <=s abs(tos) < 1.0 : 

52.4 + C I 

24.8 to 49.6 48.8 - 

0.8(trunc(lg(abs(TOS))) ) + C. 

C = 0.8 if TOS < 0.0, 

C = 0.0 otherwise. 

ABR 227 5.2 

[real] ; [real] 

NCR 228 5.2 

[real] ; [real] 

DUP2 198 12,0 

[wDrd,word] : [wDid, word, word, word] 

AER 192 18.8 | 

[real, real] : [real] 60.8 to 152.8 



TOS-1 = 0.0 I 
Range of times represents 
difference in exponents 
of TOS and T0S~1. As the 
difference increases, 
the time increases until 
the difference exceeds 
the width of the nantissa. 



RND 191 

[real] : [int] 



FLT 204 

[int] : [real] 



TWO 190 

[real] ; [int] 
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Table 


C-2. Operator Execution Times. 


(Continued) 


Mnemonic 


Opcode 


Parameters Time 


Remarks 






Reals Cbntinued 




SBR 


193 


19.2 1 


TOS-1 = 0.0 1 


[real, real] 


: [real] 


64.4 to 152.0 


Times vary for same 
reasons as AIK. 


MPR 


194 


26.4 I 


TOS-1 = 0.0 1 


[real ,real] 


: [real] 


159.4 to 177.8 


Time is a function of 
the operands. 


DVR 


195 


32.4 1 


TOS = 0.0 1 


[real , real] 


: [real] 


140.6 to 293.8 


Time is a function of 
the operands. 


EQUREAL 


205 


16.4 1 


TRUE result 1 


C real , real ] 


: [bod] 


14.8 1 


FALSE in 1st word | 






18.4 


FALSE in 2nd vsord. 


LECBEAL 


206 


16.4 1 


TRUE (TOS = TOS-1) | 


[real ,real] 


; [bod] 


16.0 to 20.4 1 


TRUE (TOS < TOS-1) ; 
16.0 + B + C, 

B = 0.8 if "pos < pos", 
B = 0.0 otherwise, 

C = 3.6 if equal in 1st 
word, 0.0 otherwise I 






16.8 to 22.0 


FAISE (TOS > TOS-1) : 
16.8 + B + C, 








B = 1.6 if "pos < pos", 
B = 0.0 otlierwise. 








C = 3.6 if equal in 1st 
word, 0.0 otherwise. 


GECKEAL 


207 


16.4 1 


TRUE (TOS = TOS-1 ) | 


[real ,real] 


: [bod] 


16.0 to 20.4 1 


TRUE (TOS > TOS-1) : 



16.0 + B + C, 

B = 0.8 if "pos > pos", 
B = 0.0 otherwise, 

C = 3.6 if equal in 1st 
WDrd, 0.0 otherwise. 

16.0 to 20.4 FALSE (TOS < TOS-1) : 

16.0 + B + C, 

B =0.8 if "pos > pos", 
B = 0.0 otherwise, 

C = 3.6 if equal in 1st 
word, 0.0 otherwise. 




Table C-2. Operator Execution Times. (Continued) 



Mnemonic Opcode I^rameters Time Remarks 



Sets 



ADJ 199 UB 

[set] ; [ward-block] 



SRS 188 

[ int / int ] ; [ set] 



INN 218 

[int, set] : [booL] 



UNI 219 

[set, set] : [set] 



14.4 j 

13.6 to 1747.6 ! 

16.4 to 1431.6 



18.0 ! 

50.4 to 110.4 1 



52.4 to 114.0 I 



56.4 to 1023.6 



18.4 i 

22.8 to 52.8 

6.6 I 

29.2 to 1756.4 | 

19.6 to 1848.4 I 

58.8 to 3475.2 



wards (TOS) = UB I 
set expansion : 

13.6 + 6.8(UB) I 
set Gcmpression ; 

16.4 + 

5.6(wards(TOS) ) + 

2.8(UB - wards(TOS)) 

null set (TOS-1 < TOS) 1 

1 ward set : 

50.4 + 

2.0(TOS-1) + 

2.0(TOS) 1 

2 ward set ; 

52.4 + 

2.0(TOS mod 16) + 

2.0(TOS-1 mad 16) + C, 
C = 1.6 if TOS > 15, 

C = 0.0 otherwise I 
all others : 

45.6 + 

3.6((TOS div 16) + 1) + 
2.0(TOS mod 16) + 
2.0(TOS-1 mad 16) - B, 

B = 0.4 if 
((TOS div 16) - 
(TOS-1 div 16)) < 2, 

B = 0.0 otherwise. 

TOS-1 outside bounds of 
set TOS I 

22.8 + 2.0(TOS-1 mad 16) 

TOS is null set 1 
TOS-1 is null set : 

22.4 + 

6.8(wards(T0S) ) | 
wards (TOS) <= words (TOS-1) 

12.4 + 

7 . 2 (wards (TOS ) ) | 
wards (TOS) > wards (TOS-1) 
24.0 + 

14.0(w5rds(TOS) ) + 

6. 8 (wards (TOS) - 
words (TOS-1 ) ) 
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Table C-2. Operator Execution Times. (Continued) 
Opcode 



Mnemonic 



I^araeters Time 

Sets Continued 



Remarks 



INT 220 

[set, set] : [set] 



DIF 221 

[set, set] : [set] 



EQUPWR 182 

[set, set] : [bod] 



11.6 I 
12,0 I 

22.4 to 1851.2 I 



26.6 to 1848.2 



6.0 1 

12.0 I 

21.2 to 1850.0 I 



20.8 to 1842.4 



both sets null I 
only TOS null I 
words (TOS) >= words (TOS-1 ) 
15.2 + 

7.2(words(TOS) ) I 
words (TOS) < words (TOS-1) 
16.6 + 

7. 2 (words (TOS) + 

2. 8 (words (TOS-1) - 
words(TOS) ) 

TOS is null set I 
TOS-1 is null set I 
words (TOS) <= words (TOS-1 ) 
14.0 + 

7.2(words(TOS) ) I 
words(TOS) > words(TOS-l) 
13.6 + 

7 . 2 (words (TOS-1 ) ) 



23.6 to 1954.0 16.0 + 

7.6(N) + 

4.0(D) + 

C + B. 

N = # words ccmpared to 
assert FALSE. 

0 < N < words in 

smaller set 
D = # words examined in 
larger set (beyond 
size of smaller set) 
to assert FAI5E. 

0 <= D <= (size of 
larger 
set) - N 

C = 2.0 if D <> 0 and 
result is IRUE, 

0.0 otherwise. 

B = 0.0 if words(TOS) 

>= words(TOS-l), 
else 

1.2 if result TRUE 
else 

0.8 if result FALSE 
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Table C-2. Curator Execution Times. (Continued) 



Mnanonic C^xrde F^ameters Time Remarks 



LEQPWR 


183 


Sets Ocntinued 

24.4 to 2158.0 1 


vyords(TOS) >= words (TOS-l) 


[set, set] : 


Cbod] 




16.0 + 8.4(N) ! 


GECPWR 


184 


30.0 to 2175.2 
31.2 to 2180.8 


words (TCS-1) > wards (TOS) 
17.2 + 

8.4(N) + 

4.0(D) + C 
N = same as EQUPWR 
D = same as EC^PtVR 
C = 0.4 if D <> 0 and 
result is TRUE, 

0.0 otherwise 

WDrds(TOS-l) >= words(TCS) 


[set, set] : 


[bool] 




21.6 + 



8.4(N) + C + B 
C = 1.2 if result is 
TRUE, else 0.0 
B = 0.0 if sets same 
size, else 
0.4 if result TRUE, 
else 

1.2 if result FM£E i 
29.2 to 2176.4 WDrds(TOS) > wDrds(TCS-l) 

20.8 + 

8.4(N) + 4.0(D) + C 
N = same as EQUPWR 
D = same as EQUPWR 
C = 2.0 if D <> 0 and 
result is TRUE, 

0.0 otherwise 
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Table C-2. Operator Execution Times. (Continued) 



Mnemonic Cpcode E^ameters Time 



Remarks 



Byte Arrays 



EQUBYT 185 B 

C addr , addr ] ; [bool ] 



LECBYT 186 B 

[addr, addr] : [bod] 



GEQBYT 187 B 

[addr, addr] : [booL] 



29.6 to 170404.8 | TRUE result : 

19.2 + 

10.4((B+1) div 2) + 
2.8((B+1) mod 2) I 
21.8 to 170397.0 FAI5E result : 

11.4 + 

10.4((D+1) div 2) + 
2.8((D+1) nod 2) 

D = # bytes coti^Dared to 
assert FAISE. 



28.8 to 170404.0 1 EOJAL (TRUE) result ; 

18.4 + 

10.4((B+1) div 2) + 
2.8((B+1) nod 2) I 

27.2 to 170402.4 | LESS (TRUE) result ; 

16.8 + 

10.4((L+1) div 2) + 
2.8((L+1) nod 2) 

L = # bytes compared to 
assert LESS I 

28.0 to 170403.2 GREATER (FALSE) result : 

17.6 + 

10.4((G+1) div 2) + 
2.8((G+1) nod 2) 

G = # bytes compared to 
assert GREATER. 



28.8 to 170404.0 1 EQUAL (TRUE) result : 

18.4 + 

10.4((B+1) div 2) + 
2.8((B+1) nod 2) | 

31.6 to 170406.8 I GREATER (TRUE) resuat : 

21.2 + 

10.4((G+1) div 2) + 
2.8((G+1) mod 2) 

G = # bytes caipared tc 
assert GREATER I 

32,4 to 170407.6 I£SS (FALSE) result : 

22.0 + 

10.4((L+1) div 2) + 
2.8((L+1) nod 2) 

L = # bytes compared to 
assert LESS. 
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Mnearoiic 



UJP 

[] : □ 

FJP 

[bool] : C 
EFJ 

[int,int] 

NFJ 

[int,int] 

UJPL 

C] : □ 

FJPL 

[bool] : [ 
XJP 

Cint] : [] 



Table C-2. Operator Execution Times. (Continued) 



C^ode 


Parameters 


Time 


Ranarks 








Junps 




138 


SB 


12.4 






212 


SB 


16.8 


1 10.8 


jump 1 no junp 


210 

[] 


SB 


19.2 


1 11.8 


junp 1 no junp 


211 

[] 


SB 


19.2 


1 12.0 


jump 1 no jump 


139 


W 


12.8 






213 


W 


18.8 


1 10.0 


jump 1 no jump 


214 


B 


32.0 
29.2 

34.0 


1 

1 


jump 1 

TOS < min index I 
TOS > max index 
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Mnemonic 



Table C-2. Operator Execution Times. (Continued) 



C^xxxie Parameters Time Remarks 



Procedure and Function Calls and Returns 



CPL 


144 


UB 


45.6 


Cparam] : 


! Cactivation] 






CPG 


145 


UB 


44.8 


[param] : 


I Cactivation] 






CPI 


146 


EB, UB 


56.8 to 450.0 


Cparam] : 


! Cactivation] 






CXL 


147 


UBl, UB2 


64.4 


Cparam] ; 


: Cactivation] 






QG 


148 


UBl, UB2 


63.2 


Cparam] : 


! Cactivation] 






CXI 


149 UBl, ffi, UB2 


76.4 to 469.6 


Cparam] j 


! Cactivation] 






CPF 


151 




75.6 


Cparam, addr , seg# / proc# ] 


; Cactivation] 


RPU 


150 


B 


26.0 


C activation] : Cfunc-result] 




LSL 


153 


CB 


15.6 to 408.8 



[] : [addr] 



53.6 + 3.2(DB) 



73.2 + 3.2(DB) 



12.4 + 3.2(DB) 
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Table C-2. Cjjerator Execution Times. (Continued) 



Mnemonic 


C^ode 


E^ameters Time 


Remarks 






System Control 




SIC3SIAL 


222 


14.8 1 


waitq nil, count > 0 | 


Caddr] ; 


1 — 1 


18.0 ! 


waitq nil, count = 0 ! 






52.0 1 


vaitq non-nil, nc 
taskswitch ! 






134.8 


vaitq non-nil, 
taskswitch performed 


miT 


223 


11.6 1 


count > 0, no wait 1 


Caddr] : 


1 — 1 
1— I 


90.8 


count =0, 90.8 is 
time to taskswitch to 








another task. 


LPR 


157 


8.4 1 


TOS < 0 1 


[int] ; 


[word] 


55.2 


TOS >= 0 


SPR 


209 


8.4 1 


TOS - 1 = -2, -3 1 


[int, word] : [] 


53.2 1 


TOS - 1 = -1 1 






54.8 


TOS - 1 >= 0 






DdDugger 




BPT 


158 




time ficr this operator 


C J ; [activation] 




is ccraparable to the 



time for Q23. BPT 
unconditionally calls 
execution error 
procedure, resulting 
in a halt of execution. 



Miscellaneous 



NOP 

[] : [] 


156 


3.6 


SWAP 


189 


12.4 


[word, word] 


: [word, word] 
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C-3. 



P-MACHINE ffiSCRIPriC»T METALANGUAGE 



This appendix presents the III.0 P-cxDde operators in a Pascal -lUoe nota- 
tion. Pointer expressions are allowed. Eor example sp^.i is the contents of 
the meniory location the top of stack register is pointing at taken as an integer. 
The expression (sptl)^.i is cne memory cell above the the ^ register taken as 
an integer. Lhe notation i<x:y> means take the field starting from bit position 
X for y bits. Tbble C-3 shows the P-code operators in a Pascal -like metalanguage. 

The record declarations used are dose to those used 1:^ the Vfestem Digital 
MicroEngine operating system, lhe declarations fidlcw. 



const 



version 


= *B0'; 


{ Version of this document } 


sz 


= 4; 


{ Size of mrk stack control word in words] 


real sz 


= 2; 


{ Size of reals in words] 


bset sz 


= 4080; 


{ Max size of sets in bits] 


iset sz 


= 255; 


{ Max size of sets in words] 


word sz 


= 16; 


{ Size of wo 2 rd in bits] 


NIL 


= -1024; 


{ Representation for nil pointer] 



type 

object_type 

byte 

sibp 

sibvec 

sib 



mscs«p 

mscw 



(int_dbj, real_cbj, byte_cbj, bod_obj, set_cbj, 
ptr_cbj, sv_cbj, sem_cbj, mscw_cbj, tib_cbj); 

0. . 255; 

^sib; 

array [0..127] of sibp; 
record { segment info block } 

segbase; menp; { memory address of seg } 
segleng: integer; { # words in segment } 

{ active calls } 

{ absolute disk address } 

{ physical disk unit } 

{ SP saved by getseg for relseg } 



segrefs; integer; 
segaddr; integer; 
segunit; integer; 
prevsp : mesip; 
end { sib } ; 

^mscw; 

packed record { mark stack control word } 



msstat; mscwp; 
msdynl ; mscwp; 
msipc; integer; 
msseg : byte ; 

msfLag; byte 
end { mscw } ; 



{ lexical parent pointer } 

{ ptr to caller's mscw } 

{ byte index in return code seg } 
{ seg # of caller code } 
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tibp 

tib 



= ''tib; 

= packed record { Task Infomation HLock } 

waitq: tibp; { QUEUE LINK FOR SEMAPHORES } 

prior: byte; { TASK'S GPU PRIORITY } 

flags; byte; { STATE FLAC^ ... reserved } 

spLow; maip; { LOWER STACK POINTER LE^IT } 

spupr; mernp; { UPPER KEMIT ON STACK } 

sp; metp; { ACTUAL TOP-OFHSTACK POINTER } 

mp: mscwp; { ACTIVE PROCEDURE MSCW PTR } 

bp: mscwp; { BASE ADDRESSING ENVEROiSMENr PTR } 

ipc; integer; { BYTE PTR IN CURRENT COrai SEG } 

segb; menp; { PTR TO SEG CURRENTLY RUNNING } 

hangp; senp; { WHICH TASK IS WaTJNG OST } 

iorslt ; integer; { Result of last l/O call. } 

sibs; "sibvec { ARRAY OF SIBS FOR 128. .255 } 

end { TIB } ; 
menp = ^menitrix; 

register = menp; 

menitrix = record 

case cbject_type of 

int_cbj ; (i : integer); 
bodjobj : (bod: bodean); 

real_obj : (r : real); { Standard, IEEE ficrmat } 
byte_cbj : (b : packed array [0. .maxint-1] of byte); 
set_cbj : (sz : integer; 

sb :packed array [0. .bset_sz-l] of bodean); 
ptr_cbj ; (p : menp); 

mscwjdbj : (m : mscw); 

tibjcbj ; (t : tib); 

sv_cbj ; (sv: sibvec); 

sem_cbj ; (count: integer; 

waitq: tibp); 
end {record memtrix}; 



pc, { program counter } 

sp/ { points at top item on stack vhich grows toward lew memory } 

np, { points at current mark stack control word } 

{ points at glcbal mark stack control word } 

segb, { points at base of currently executing code segment } 

ctp, { points at TIB for currently executing task } 

rq, { points at list of TIB's for ready to run tasks } 

ssv; { points at system segment vector } 

register; 

Im, 

Isv, 

sre, 

dst; menp; { General use tenporaries } 
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Table C-3. P-Gode Operators in a Pascal -like Metalanguage. 
Op-CJode 

Mnemonic in Hex Semantics 



Constant One \tord Loads 



SLDCi 


00. .IF 




Short Load Vford Constant. 

sp := sp - 1; sp^.i := i{0..31] 


LDCN 


98 




Load Constant Nil . 

sp ;= sp - 1; sp^.p := NIL 


LDCB 


S0 


UB 


Load Constant ^rte. 

sp := sp - 1; sp^.i := UB 


LDCI 


81 


W 


Load Constant ViJbrd. 

sp := sp - 1; sp^'.i := W 


LGA 


82 


B 


Load Constant Mdress 

sp := sp - 1; sp^.p := segb + B 

Local One Vford Loads and Store 


SLDLi 


20. .2F 




Short Load Local vford. 

sp := sp - 1; sp^.i ;= (rrp + mscw_sz - 1 + i{l..l6})^.i 


LDL 


87 


B 


Load Local Word. 

sp := sp - 1; sp^.i := (mp + rriscw sz - 1 + B)'".i 


LIA 


84 


B 


Load Local Address. 

sp := sp - 1; sp^.p := rrp + mscw sz - 1 + B 


STL 


A4 


B 


Store Local Vford. 

(rrp + mscv^sz - 1 + B)^.i ;= sp^.i; sp := sp + 1 
Glctoal One I'ford Loads and Store 


SLDOi 


30.. 3F 




Short Load GLcbal Vford. 

sp := sp - 1; sp^.i ;= (bp + mscw sz - 1 + i{l. . 16}) .i 


LDO 


85 


B 


Load GLcfoal Vford. 

sp := sp - 1; sp^.i := (bp + mscw sz - 1 + B)^.i 


lAO 


86 


B 


Load Ga.ctoal Address. 

sp := sp - 1; sp^.p := bp + mscw sz - 1 + B 


SRO 


A5 


B 


Store GLcbal Vford. 

(bp + mscw_sz - 1 + B)^.i := sp^.i; sp := sp + 1 
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Table C-3. P-Gode Operators in a Pascal -like Metalanguage. (Continued) 



Op-Code 

Mnemonic in Hex Semantics 



Intermediate One-Word loads and Store 



LOD 89 DB,B Load Intermediate Wbrd. 

Im := mp; 

for i := 1 to LB do Im := Im"^ .m.msstat; 

sp := sp - 1; sp'^.i := (Im + mscw_sz - 1 + B)'".i 

LD?^ 88 DB,B load Intermediate Address. 

Im := mp; 

for i := 1 to EB do Im := Im'^ .m.msstat; 
sp := sp - 1; sp'^.p := Im + mscw_sz - 1 + B 

SIR A6 DB,B Store Intermediate Wbrd. 

Im := mp; 

for i ;=1 doEBdolm := Im'^ .m.msstat; 

(Im + mscw_sz - 1 + B)^.i := sp^.i; sp ;= sp + 1 

Indirect One-^^rd Loads and Store 



STO C4 Store Indirect. 

(sp + l)^.p^.i := sp^.i; sp := sp + 2 

Extended One-Wbrd Loads and Store 



procedure Raise (err: integer); 
sp := sp -1; sp^.i ;= err; 

cm 2 , 2 ; 

{ All references to ssv are through getsegb } 
function getsegb (segno: integer): memp; 
if segno < 128 then 

getsegb ;= ssv^.sv[ segno] '".segbase 
else 

getsegb ;= ctp^ .t.sibs [segno - 128]'“.segbase; 

LEE 9A. UB,B load Ward Extended. 

sp := sp - 1; 

sp'^.i := (ssv^ .sv[UB]^ .segbase + B)''.i 

lAE 9B IB,B Load Address Extended. 

sp := sp - 1; sp^.p := ssv"^ .sv[UB]^ .segbase + B 

Store Vvbrd Extended. 

(ssv^ .sv[UB]^.segbase + B)^.i := sp'^.i; sp := sp + 1 
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STE 



D9 



UB,B 




Table C-3. P-Code Operators in a Fiscal -I ike Metalanguage. (Continued) 



Op-Code 

Mnononic in Efex 


Sonantics 






Multiple ^ferd Loads and Stores (Sets and Reals) 


LDC 


83 


B,UB 


Load Multiple Wbrd Constant, 
src := segb + B + UB; 

for i ;= 1 to UB do (sp - i)^.i ;= (src - i)'",i; 
sp := sp - UB 


LCM 


D0 


UB 


load Multiple Iferds. 

src := sp^.p + UB; sp := sp + 1; 

for i := 1 to UB do (sp - i)^.i := (src - i)'",i; 

sp := sp - UB 


SIM 


8E 


UB 


Store I'liltiple \ifc>rds. 
dst := (sp'^.p + UB)^.p; 

for i := 0 to UB - 1 do (dst + i)^.i ;= (sp + i)^.i; 
sp := sp + UB + 1 








Byte Arrays 


LDB 


A7 




Load Byte. 

(sp + l)".i := (sp + l)^.b[sp^.i]; sp := sp + 1 


STB 


C8 




Store Byte. 

(sp + 2)^.b[(sp + l)^.i] := sp^.i; sp ;= sp + 3 
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Table C-3. P-Code Operators in a Pascal -like i'fetalanguage. (Continued) 



Op-Oade 

Mnemonic in Hex Semantics 



Record and Array Indexing and Assignment 



MOV C5 B 

SINDi 78.. 7F 

IND E6 B 

INC E7 B 

IXA D7 B 



Move Vfords. 

src ;= sp^.p; dst := (sp + l)^.p; sp := sp + 2; 
for i:=0toB-ldo 

(dst + i)^.i := (src + i)^.i 

Short Index and Load I'ford. 
sp^.i := (sp^'.p + i{0..7})^.i 

Index and Load Wbrd. 
sp^.i := (sp^.p + B)^.i 

Increment Field Pointer, 
sp^.p := sp^.p + B 

Index Array. 

(sp + l)^.p := (sp + l)''.p + sp'^.i * B; 
sp := sp + 1 



IXP D8 UB1,UB2 Index Packed Array. 

var inx: integer; 
inx := sp^'.i; 

(sp + l)^.p := (sp + l)"".p + inx div UBl; 
sp^'.i := UB2; sp := sp - 1; 
sp^.i :=(inx mod UB1)*UB2 

LDP C9 Load A E^cked Field. 

(sp + 2)^.i ;= (sp + 2)^.i<sp^.i : (sp + l)^.i>; 
sp ;= sp + 2 

STP GA Store into a packed field. 

(sp + 3)''.p'‘.i<(sp + l)^.i : (sp+ 2)^.i> := sp'^.i; 
sp := sp + 4 

Logical s 



LAND A1 
LOR A0 

LNOT E5 



Logical AND. 

(sp + l)''.bool ;= (sp + l)^.i and sp^.i; sp := sp + 1 
Logical OR. 

(sp + l)^.boci := (sp + l)'‘.i or sp'^.i; sp := sp + 1 

Logical NOT. 

sp'' . i : “ not sp'" . i 




Table C-3. P-Gode Operators in a Pascal -like Metalanguage. (Continued) 



Op-Code 

Mnenoiic in Hex 


bemantics 








Logical s (Continued) 




BNOT 


9F 


Boolean NOT. 

sp^.bodl ;= (not i^^.i) and 1 




LEUSVJ 


B4 


Gcnpare Uisigned \tord <=. 

(sp + l)^.booL := ((sp + l)^.p <= sp^.p); 
sp := sp + 1 




GEUSW 


B5 


Corrpare Lfrisigned Vford >=. 

(sp + l)^.boctl := ((sp + l)^.p >== sp^.p); 
sp := sp + 1 








Integers 




ABI 


E0 


Absolute Value of Integer, 
sp^.i := Abs (sp^.i) 




NGI 


El 


Negate Integer, 
sp^.i := -sp^.i 




DUPl 


E2 


Copy Wbrd. 

sp := sp - 1; sp^.i := (sp + l)^.i; 




ADI 


A2 


Add Integers. 

(sp + l)^.i ;= (sp + l)^.i + sp^.i; sp := sp + 


1 


SBI 


A3 


Subtract Integers. 

(sp + l)^.i ;= (sp + l)''.i - sp'^.i; sp := sp + 


1 


MPI 


ac 


Multiply Integers. 

(sp + l)^.i := (sp + l)^.i * sp^.i; sp ;= sp + 


1 


DVI 


8D 


Divide Integers. 

if sp^.i = 0 then Raise (div by zero error); 

(sp + l)^.i ;= (sp + l)^.i div sp^.i; sp := sp 


+ 1 


MODI 


8F 


ModiiLo Integers. 

if sp^.i <= 0 then Raise (mod by nonpos error); 
(sp + l)^.i ;= (sp + l)^.i mod sp'^.i; sp := sp 
{ -X mod X returns x not 0 } 


+ 1 
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Table C-3. P-Code Operators in a Pascal -like Metalanguage. (Continued) 



Op-Code 

Mnaronic in Hex 


Semantics 






Integers (Continued) 


CHK 


CB 


Qieck gainst Subrange Bounds. 

if ((sp + l)"^.i <= (sp + 2)'^.i) and 

((sp + 2)^.i <= sp^.i) then sp := sp + 2 
else Raise (range error) 


EQUI 


B0 


CcnpEure Integer =. 

(sp + l)''.booL := ((sp + l)'‘.i = sp'^.i); sp := sp + ^ 


NEQI 


B1 


Corrpare Integer <>. 

(sp + l)^.bool := ((sp + l)^.i <> sp^.i); sp := sp + 


LEQI 


B2 


Coirpare Integer <=. 

(sp + l)'".bocQ. ;= ((sp + l)^.i <= sp^.i); sp ;= sp + 


GEQI 


B3 


Corpare Integer >=. 

(sp + l)^.booL := ((sp + l)^.i >= sp'^.i); sp := sp + 






Reals 


{ Over/ under fLcw causes 


floating-point exception to be raised. } 


FLT 


OC 


Float Top-of-Stack. 

(sp - real sz + l)^.r ;= Float (sp^'.i); 
sp := sp - real sz + 1 


TNC 


BE 


Truncate Real . 

(sp + real sz - l)^.i := Truncate (sp'^.r); 
sp := sp + real sz - 1 


RND 


BF 


Round Real . 

(sp + real sz - l)^.i ;= Round (sp^.r); 
sp ;= sp + real sz - 1 


ABR 


E3 


Absolute Value of Real, 
sp^.r ;= Abs (sp'^.r) 


NCR 


E4 


Negate Real . 
sp^.r ;= -sp^.r 


DUP2 


C6 


Copy Doubleward. 
sp := sp - 2; 

sp^.i := (sp + 2)‘'.i; (sp + l)^.i := (sp + 3)'".i; 
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Table C-3. P-Code Operators in a Enseal -like Metalanguage. (Continued) 



Op-Code 

Mnaronic in Hex Semantics 



Reals (Continued.) 



AER C0 



SBR Cl 



MPR C2 



DVR C3 



EQUREAL CD 



LEO^L CE 



GEQREAL CF 



Add Reals. 

(sp + real_sz)^.r : = 
sp := sp + real_sz 

Subtract Reals. 

(sp + real_sz)^.r : = 
sp ;= sp + real_sz 

Multiply Reals. 

(sp + real_sz)^.r : = 
sp := sp + real_sz 

Divide Reals. 

(sp + real_sz)^.r ; = 
sp := sp + real_sz 

Cctipare Real =. 

(sp + 2*real_sz - 1)' 
((sp + real_sz)^.r 
sp ;= sp + 2*real_sz 

Corpare Real <=. 

(sp + 2*real_sz - 1)' 
((sp + real_sz)''.] 
sp ;= sp + 2*real_sz 

Carpare Real > . 

(sp + 2*real_sz - 1)' 
( (sp + real_sz)^.3 
sp := sp + 2*real sz 



(sp + real_sz)^.r + sp'^.r; 



(sp + real_sz)''.r - sp^.r; 



(sp + real_sz)''.r * sp^.r; 



(sp + real_sz)^.r / sp'^.r; 



.bool : = 
= sp".r); 
- 1 



.bod : = 

<= sp'.r); 
- 1 



.bed : = 

>= sp".r); 
- 1 
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Table C-3. P-Gode Operators in a Pascal -like Metalanguage. (Continued) 



Op-Oode 

Mnemonic in Hex Semantics 



Sets 



ADJ C7 UB Adjust Set . 

var len: integer; 
len := sp^.i; 

src := sp + 1; dst := sp + len - UB + 1; 
if len > UB then { shrink set } 
for i := 1 to UB do 

(dst + UB - i).i := (src + UB - i).i 
else if len < UB then { expand set } 
for i := 0 to loi - 1 do 

(dst + i)'^.i ;= (src + i)^.i; 
for i := len to UB - 1 do 
(dst + i)^.i := 0; 
sp := sp + len - UB + 1 

SRS BC Build Subrange Set. 

var M/lO/loi: integer; 
hi ;= sp'^.i; lo ;= (i^ + l)^.i; 
if (0 <= hi) and (hi <= bset_sz-l) and 
(0 <= lo) and (lo <= bset_sz-l) 
then 

if lo > hi then 

sp := sp + 1; sp^.i := 0 {Null set] 
else 

len ;= hi div v\!ord_sz + 1; 

sp ;= sp - len + 1; sp'^.i := len; 

for i ;= 0 to len * wDrd_sz - 1 do 

(sp + l)''.sb[i] := (lo <= i) and (i <= hi); 

else 

Raise ( range_error ) 

INN DA Set I'fembership. 

var len, val: integer; 
len := sp'^.i; val := (sp + len + l)''.i; 
if (0 <= val) and (val <= len * v\rord_sz - 1) then 
(sp + len + l)'".bool := (sp + l)''.sb[val] 
else (sp + len + l)^.bool := false; 
sp ;= sp + len + 1 
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Table C-3. P-Gode Operators in a Pascal -like Metalanguage. (Continued) 
Op-Code 

Mnononic in Hex Semantics 



Sets (Continued) 



UNI IB Set IMion. 

var len0,lenl; integer; 

len0 := sp^.i; lenl := (sp + len0 + l)'‘.i; 
if lenl >= len0 then {best case move & out back} 
src := (^ + l)'".p; dst := (sp + len0 + 2)^.p; 
for i := 0 to len0 - 1 do 

(dst + i)^.i := (dst + i)^.i or (src + i)^.i; 
sp := sp + len0 + 1; 
else 

src := (sp + len0 + 2)^.p; dst := (sp + l)^.p; 
for i ;= 0 to lenl - 1 do 

(dst + i)^.i := (dst + i)^.i or (src + i)^.i; 

{ Move set up } 

src := Ip + len0; dst := sp + len0 + lenl + 1; 
for i := 0 to len0 do { move length word } 

(dst - i)^.i := (src - i)^.i; 
sp := sp + lenl + 1 

INT DC Set Intersection. 

var loi0,lenl; integer; 

len0 := sp^.i; lenl ;= (sp + len0 + l)^.i; 
if len0 = 0 then 

sp := sp + lenl + 1; sp^.i := 0 
else if lenl = 0 then 
sp := sp + len0 + 1 

else if lenl > len0 then {best case move & cut back] 
src := (sp + l)^.p; dst := (sp + len0 + 2)'".p; 
for i ;= 0 to len0 - 1 do 

(dst + i)^.i ;= (dst + i)^.i and (src + i)^.i; 
for i ;= len0 to lenl - 1 do 
(dst + i)^.i ;= 0; 
sp := sp + len0 + 1; 
else 

dst ;= (sp + len0 + 2)'^.p; src ;= (sp + l)"".p; 
for i := 0 to lenl - 1 do 

(dst + D^'.i ;= (dst + i)^.i and (src + i)^.i; 
sp := sp + len0 + 1 
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Table C-3. P-Gode Operators in a Fiscal -like Metalanguage. (Continued) 



Op-Code 

Mneanonic in Hex Seanantics 



Sets (Continued) 



DIF DD Set Difference. 

var len0,lenl: integer; 

len0 := sp^.i; lenl := (sp + len0 + l)^.i; 
if len0 = 0 then 
sp := sp + 1 
else if lenl = 0 then 
sp := sp + len0 + 1 

else if lenl > len0 then {best case itove & cut back} 
src := (sp + l)^.p; dst := (sp + len0 + 2)^.p; 
for i := 0 to len0 - 1 do 

(dst + i)^.i := (dst + i)^.i and not (src + i)^.i; 
sp := sp + len0 + 1; 
else 

dst := (sp + len0 + 2)'".p; src := (sp + l)^.p; 
for i := 0 to loll - 1 do 

(dst + i)^.i := (dst + i)‘'.i and not (src + i)^.i; 
sp := sp + len0 + 1 

EQUPIVR B6 Set Oorrpare =. 

var len0Aenl,minl,maxl; integer; 
len0 := sp^.i; lenl := (sp + len0 + l)’'.i; i := 0; 
mini := min(lQ:^,lenl); maxi := itax(len0,lenl); 
src := (sp + l)^.p; dst := (sp + loi0 + 2)'^.p; 
vdiile (i < mini) and ((src + D^'.p = (dst + i)^.p) do 
i := i + 1; 
if 1qi0 > lenl then 

vhile (i < maxi) and ((src + i)^.p = 0) do i ;= i + 1 
else if loll > len0 then 

vhile (i < maxi) and ((dst + i)^.p = 0) do i := i + 1; 
sp := sp + ler^ + lenl + 1; sp^.booL := (i >= maxi) 

LEQPWR B7 Set Conpare <= (Subset of) . 

var lei0, lenl, mini, maxi: integer; 
len0 := sp^.i; lenl := (sp + len0 + l)^.i; i := 0; 
mini ;= min(len0,lenl); maxi ;= rnax(lei0,lenl); 
src := (sp + l)''.p; dst := (sp + len0 + 2)^.p; 
v»hile (i < mini) and 

((src + i)^.p = (dst + D'^.p or (src + i)^.p) do 
i := i + 1; 
if lenl > len0 then 

\fthile (i < maxi) and ((dst + i)''.p = 0) do i := i + 1; 
else i := rraxl; 

sp ;= sp + len0 + lenl + 1; sp^.booL ;= (i >= maxi) 
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T^le C-3. P-Code Operators in a Pascal -I ike Metalanguage. (Continued) 



Op-Code 

Mnemonic in Hex Sonantics 



Sets (Continued) 



GEQEWR B8 Set Ccmpare >= (Superset of) . 

var len0,lenl, mini , maxi: integer; 
len0 := sp^.i; lenl := (sp + len0 + l)^.i; i ;= 0; 
mini := min(loi0-lQil); maxi ;= irax(len0,lenl); 
src := (sp + l)^.p; dst := (sp + len0 + 2)^.p; 
vdiile (i < mini) and 

((dst + i)'^.p = (dst + i)^.p or (src + i)^.p) do 
i := i + 1; 
if loll < len0 then 

vshile (i < maxi) and ((src + i)^.p = 0) do i := i + 1; 
else i := iiexl; 

sp := sp + len0 + lenl + 1; sp^.bool := (i >= maxi) 

Byte Arrays 



EQJBYT B9 B Equal Byte Array Ccmpare. 

src := sp^.p; dst := (sp + l)"".p; i := 0; 
while (i < B) and (src^.bCi] = dst^.bCiJ) do 
i := i + 1; 

sp := sp + 1; sp^.bodl := (i >= B) 

LECBYT BA B Less or Equal Byte Array Compare. 

src ;= sp^.p; dst := (sp + l)^.p; i := 0; 
vhile (i < B) and (src^.bCi] ^ dst^.bCi]) do 
i := i + 1; 

sp := sp + 1; sp^.bool := (i >= B) 

GECBYT BB B Greater or Equal Byte Array Compare. 

src := sp^.p; dst := (sp + l)^.p; i := 0; 
vhile (i < B) and (src^.bCi] >= dst^.b[i]) 
i ;= i + 1; 

sp ;= sp + 1; sp''.booL := (i >= B) 

Jumps 



UJP SB Unconditional Jump. 

pc := pc + SB 

FJP D4 SB False Jump. 

if not sp^.bool then pc := pc + SB; sp ;= sp + 1 

EFJ D2 SB Equal False Jump. 

if (sp + l)'^.i <> sp^.i then pc := pc + SB; 
sp := ^ + 2 
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Table C-3. P-Gode Operators in a Enseal -like Metalanguage. (Continued) 



Op-Code 

Mnoroiic in Hex Seniantics 



Jurrps (Continued) 



NFJ 


D3 


SB 


Not Equal False Junp. 

if (sp + l)^.i = sp^.i then pc := pc + SB; 
sp := sp + 2 


UJPL 


SB 


W 


Ifticonditional long Junp. 
pc := pc + W 


FJPL 


D5 


W 


Ehlse Long Jump. 

if not ^"^.booL then pc := pc + W; sp := sp + 1 


XJP 


D6 


B 


Case Junp. 



if ((segb + B)^.i <= i^^.i) and 

((segb + B + l)^.i >= sp'^.i) then 
pc := pc + (segb + B + 2 + sp^.i - (segb + B)^.i)^.p; 
sp := sp + 1 

Procedure and Function Calls and Returns 



procedure createmsew; 

{ data_sz = (segb + segb^.i - procno)^.i } 
sp := sp - msevy^sz - data_sz; 

if (sp < splcw) or (data_sz + rnscw_sz > sp - splow 
then Raise ( stackjoverflcw) ; 

Im := np; np := sp; 

np'^ .ra.msdynl ;= Im; np^.m.msipc ;= pc 

CPL 90 UB Cbll Local Etocedure. 

createmsew; 

mp^.m.msstat ;= Im; i^''.m.msseg := 0; 
pc ;= (segb + segb^.i - UB - l)^.p 

CPG 91 UB C^l dcfoal Procedure. 

createmsew; 

rrp'' .m.msstat ;= bp; np^.m.msseg := 0; 
pc := (segb + segb^.i - UB - l)'‘.p 

CPI 92 DB,UB Call Intermediate Procedure. 

creatansew; 
mp^.m.msseg := 0; 

Im := np; 

for i := 1 to EB do Im := Im^ .m.msstat; 

np'^ .m.insstat ;= Im; 

pc := (segb + segb^.i - UB - l)^.p 
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Table C-3. P-Oade Operators in a Enseal -like Metalanguage. (Continued) 



Op-Code 

Mnemcaiic in Hex Sesnantics 



Procedure and Function Calls and Returns (Continued) 



CXL 93 UB1,UB2 Call local External Procedure. 

createmsew; 
np'^.m.nisstat := Im; 

.m.insseg := (segb + segb^ -i) ^,bC0]; 
segb := ssv^ .sv[UBl]^.segbase; 

ssv^.sv[UBl]^.segrefs := ssv^ .svCUBl]''.segrefs + 1; 
pc := (segb + segb^.i - UB - l)^.p 

Q53 94 UBl,OB2 Call GLcbal External Procedure. 

createmsew; 
np'^.m.msstat := bp; 

np^.m.insseg := (segb + segb^.i)^.b[0]; 
segb := ssv"'.sv[UBl]^.segbase; 

ssv^ .svCUBin^'.segrefs := ssv^ .sv[UBl]^.segrefs + 1; 
pc ;= (segb + segb^.i - UB - l)^.p 

CXI 95 UB1,EB,UB2 Call Intermediate External Procedure. 

createmsew; 

Im := rap; 

for i := 1 to EB do Ira := Im^ .m.rasstat; 
rap^.m.msstat ;= Im; 
np^.msseg ;= (segb + segb" .i) ^.b[0]; 
segb := ssv".sv[UBl]".segbase; 

ssv" .sv[UBl]".segrefs := ssv" .sv[UBl]".segrefs + 1; 
pc := (segb + segb".i - UB - l)".p 

CPF 97 Call Formal Procedure. 

var Is: raemtrix; 

Is := sp".i; Ira ;= (sp + l)".p; sp ;= sp + 2; 
createmsew; 

np".m.msseg := ls.b[l]; 
segb := ssv" .sv[ls.b[l]]".segbase; 
ssv".svCls.b[l]]".segrefs ;= 
ssv" .svCls.b[l]]".segrefs + 1; 
rrp".m.rasstat ;= Im; 

pc := (segb + segb".i - ls.b[0] - l)".p 

RPU 96 B Return Fran User Procedure. 

sp := irp; Ira ;= rap; 

rap := Im" .m.rasdynl ; pc := Ira" .m.msipc; 

if lm".m.msseg <> 0 then 

segb := ssv".sv[lra" .m.msseg].segbase; 
ssv" .svCm.rasseg3".segrefs := 
ssv" .svCm.msseg]".segrefs - 1; 
sp := sp + 3 + rasew sz 
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Table C-3. P-Gode Curators in a Pascal -like Metalanguage. (Gontini:^) 



Op-Code 

Mnoronic in Hex Semantics 



Procedure and Function Calls and Returns (Continued) 



LSL 99 DB Load Static Link Onto Stack. 

Im ;= mp; 

for i := 1 to EB do Im := Im^ .m.msstat; 
sp := sp - 1; sp^.p := Im 

Concurrency Control 



var c^iead, qtask: tibp; 
procedure ipdatetib; 

ctp^.t.np := rrp; ctp^'.t.bp ;= bp; 
ctp^.t.sp := sp; ctp^.t.ipc := pc; 
ctp^.t.segb := segb; 

procedure enque; 
var tl,t2: tibp; 
tl := qhead; t2 := NIL; 
v»^ile tl <> NIL do 

if tl^. prior < qtask^. prior then goto I; 
t2 := tl; tl := tl^.qlink; 

1 : 

qtask. ql ink := tl; 
if t2 = NIL then (^ead := qtask 
else t2^.qlink := qtask 

procedure deque; 

qtask := qpiead; qhead := c^ead^ .qlink; 

5; { taskswitch } 
update tib; 

6 : 

v^ile rq = NIL do 

if an_interrupt then 
ctp := NIL; 
sp := sp - 1; 

sp^'.i ;= int_vec_address ; {hardvyare generated} 
sp^.p := int_vec_address^ .p; 
goto SIOSIAL; 
qhead := rq; deque; 
rq ;= qhead; ctp := qtask; 

sp := ctp^.t.sp; np ;= ctp'^.t.np; bp := ctp'^.t.bp; 
pc := ctp'^.t.pc; segb ;= ctp"^ .t .segb; 

{ Fall through here as veil as for all other 
operators irtplies fetch next instruction } 
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T^le C-3. P-Code Operators in a Pascal -like Metalanguage. (Continued) 



Op-Code 

Mnemonic in Hex 



SIGNAL EE 



tVAIT EE 



Semantics 



Concurrency Contrdl (Continued) 



Signal semaphore. 

if sp^.p^ .san. count = 0 then 
if sp'^.p^ .sem.waitq <> NIL then 
ahead := sp^.p^.son.waitq? deque; 
sp^.p^^.sem.waitq := qhead; qhead := rq; 
enque; rq := qhead; 
if ctp = nil then goto 6; 
if ctp'^. prior < qtask^. prior then 
qtask := ctp; qhead := rq; enque; 
rq := cpiead; 
goto 5; 
else goto 3; 

sp^ .p'^ .sem. count := sp^ .p^ .sem. count + 1 
if ctp = NIL then goto 6; 

3: 

sp :== sp + 1 

Vfeit on Sanaphore. 

if sp^.p^.sem. count = 0 then 
qhead := sp^ .p^ .sem.waitq; 
qtask := ctp; enque; 
sp'' .p^ .sera.waitq := c^ead; 
goto 5; 

else sp^.p^.sem. count := sp^.p^.sem. count + 1; 
sp := sp + 1 
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Table C-3, P-Gode Operators in a Pascal -like Metalanguage. (Ocntinued) 



Op-Code 

Mnenionic in Hex Semantics 



Miscellaneous 

LPR 9D Load Processor Register. 

if sp^.i >= 0 then ipdatetib; 
sp^.i := case j^^.i of 

-3: rq; 

-2: ssv; 

-1: ctp; 

1. .maxint: (ctp + sp''.i)^.i 

SPR D1 Store Processor Register. 

if sp^.i >= -1 then qpdatetib; 
sp^.p^.i := case sp'^.i of 

-3: rq; 

-2; ssv; 

-1; ctp; goto 5; { Taskswitch } 
1.. maxint: (ctp + (sp + l)^.i)^.i 
if sp^.i >= -1 then Lpdatetib; 
sp ;= sp + 2 



BPT 


9E 


Break Point. 






Raise (Brea3qx>int) ; 


NOP 


9C 


No Operation. 


S^VAP 


BD 


Swap Mbrd. 



i : = sp^ . i ; 

sp^'.i := (sp + l)^.i; 

(sp + l)^.i ;= i 
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APPENDIX D. AMERICAN ST?^55nARD CODE FOR INFORMATION INTERCHANGE 



Version 3.0 





Oct 


Hex 


Char 




Oct 


Hex 


Char 




Oct 


Hex 


Char 




Oct 


Hex 


Char 


0 


000 


00 


NUL 


32 


040 


20 


SP 


64 


100 


40 


0 


96 


140 


60 


% 


1 


001 


01 


SOH 


33 


040 


21 


i 


65 


101 


41 


A 


97 


141 


64 


a 


2 


002 


02 


STX 


34 


042 


22 


II 


66 


102 


42 


3 


98 


142 


62 


K 


3 


003 


03 


ETX 


35 


043 


23 


# 


67 


103 


43 


C 


99 


143 


63 


c 


4 


004 


04 


EOT 


36 


044 


24 


$ 


78 


104 


44 


D 


100 


144 


64 


d 


5 


005 


05 


ENG 


37 


045 


25 


% 


69 


105 


45 


E 


101 


145 


65 


e 


6 


006 


06 


ACK 


38 


046 


26 


Sc 


70 


106 


46 


F 


102 


146 


66 


f 


7 


007 


07 


BEL 


39 


047 


27 


1 


71 


107 


47 


G 


103 


147 


67 


g 


8 


010 


08 


BS 


40 


050 


28 


( 


72 


110 


48 


H 


104 


150 


68 


h 


9 


011 


09 


HT 


41 


051 


29 


) 


73 


111 


49 


I 


105 


151 


69 


i 


10 


012 


I2A 


LF 


42 


052 


2A 


* 


74 


112 


4A 


J 


106 


152 


Qi 


j 


11 


013 


0B 


VT 


43 


053 


2B 


+ 


75 


113 


4B 


K 


107 


153 


6B 


k 


12 


014 


0C 


FF 


44 


054 


2C 


/ 


76 


114 


4C 


L 


108 


154 


6C 


1 


13 


015 


0D 


CR 


45 


055 


2D 


- 


77 


115 


4D 


M 


109 


155 


GD 


m 


14 


016 


0E 


SO 


46 


056 


2E 


• 


78 


116 


4E 


N 


110 


156 


6E 


n 


15 


017 


0F 


SI 


47 


057 


2F 


/ 


79 


117 


4F 


0 


111 


157 


6F 


o 


16 


020 


10 


DLE 


48 


060 


30 


0 


80 


120 


50 


P 


112 


160 


70 


P 


17 


021 


11 


DCl 


49 


061 


31 


1 


81 


121 


51 


Q 


113 


161 


71 


q 


18 


022 


12 


DC2 


50 


062 


32 


2 


82 


122 


52 


R 


114 


162 


72 


r 


19 


023 


13 


DC3 


51 


063 


33 


3 


83 


123 


53 


S 


115 


163 


73 


s 


20 


024 


14 


DC4 


52 


064 


34 


4 


84 


124 


54 


T 


116 


164 


74 


t 


21 


025 


15 


NAK 


53 


064 


35 


5 


85 


125 


55 


U 


117 


165 


75 


u 


22 


026 


16 


SYN 


54 


066 


36 


6 


86 


126 


56 


V 


118 


166 


76 


V 


23 


027 


17 


ETB 


55 


067 


37 


7 


87 


127 


57 


W 


119 


167 


77 


w 


24 


030 


18 


GAN 


56 


070 


38 


8 


89 


130 


58 


X 


120 


170 


78 


X 


25 


031 


19 


EM 


57 


071 


39 


9 


89 


131 


59 


Y 


121 


171 


79 


y 


26 


032 


lA 


SUB 


58 


072 


3A 


; 


90 


132 


5A 


Z 


122 


172 


7A 


z 


27 


033 


IB 


ESC 


59 


073 


3B 


7 


91 


133 


5B 


[ 


123 


173 


7B 


{ 


28 


034 


1C 


FS 


60 


074 


3C 


< 


92 


134 


5C 


\ 


124 


174 


7C 


1 


29 


035 


ID 


GS 


61 


075 


3D 


= 


93 


135 


5D 


] 


125 


175 


7D 


} 


30 


036 


IE 


RS 


62 


076 


3E 


> 


94 


136 


5E 




126 


176 


7E 




31 


307 


IF 


UB 


63 


077 


3F 


7 


95 


137 


5F 




127 


177 


7F 


EEL 
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APPENDIX E. 


UOSD PASCAL RESERVED WORDS 




AND 


Version 3.0 
GOTO 


RECORD 


ARRAY 




REPEAT 


BEGIN 


IF 

IMPLEMENTATION 


SET 




IN 


SEGMENT 


CASE 


INTEIPFACE 


SEPARATE 


casrsT 


LABEL 


TEEN 


DIV 




TO 


DO 


MOD 


TYPE 


DOWNTO 


NOT 


UNIT 


ELSE 




UNTIL 


END 


OF 


USES 


FILE 


OR 


VAR 


FOR 


PACKED 




FORWARD 


PROCEDURE 


WELCLE 


FOSICTION 


PROCESS 


WITH 




PROGRAM 





A syntax error results if an attenpt is mde to deciLare a 
reserved word as an identifier. 
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APPENDIX F 



UCSD EASGAL SYNTAX DIAGRAMS 



IDENTIFIER VARIABLE 
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UCSD PASCAL SYNTAX DIAGRAMS CXOTINDED 



STATEMENT 
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APPENDIX G: ME1600 AND SB1600 l/O ADDRESSES 



This appendix presents several tables of l/O addresses for tdie ME and SB1630 
series machines. 



Table G-1. ME1^0 l/O Addresses. 



Hex 


Decimal 


Function 


FC10 


-1008 


Serial port A (unit #1:,#2:) 


FC15 


-1003 


Interrupt base register serial ports A-D, Par port #6; 


FC16 


-1002 


Serial port B (unit #7;, #8:) 


FCIC 


-996 


Serial port C (unit #15:, #16:) 


PC22 


-990 


Serial port D (unit #17:, #18:) 


FC28 


-984 


Parana port (unit #6: ) 


PC2C 


-980 


Interrupt mask register serial ports A-D, Par port #6: 


FC30 


-976 


Floppy port (unit #4: , #5: , #9: , #10: ) 


PC34 


-972 


EMA BOB and DINTR 


FC35 


-971 


Floppy interrupt priority 


FC36 


-970 


Floppy interrupt base register 


FC40 


-960 


Microcode use during interrupt handling 


FC41 


-959 


Interrupt enable address 


FC42 


-958 


Interrupt mask register ficr RTC,BTO, PFD, clock tick rate 


FC43 


-957 


Interrupt base register for RTC,BTO, PFD 


F-C60 


-928 


Microcode use during interrupt handling 


FC68 


-922 


Used by microcode to determine boot from RCM 


FC70 


-912 


Winchester disk 


FD10 


-752 


Serial port E (unit #19: , #20: ) 


FD15 


-747 


Interrupt base register serial ports E-H, par port #27: 


FD16 


-746 


Serial port F (unit #21:, #22:) 


FDIC 


-740 


Serial port G (unit #23:, #24:) 


FD22 


-734 


Serial port H (unit #25:, #26:) 


FD28 


-728 


Parallel port (unit #27:) 


FD2C 


-724 


Interrupt mask register serial ports E-H, par port #27: 


FD30 


-720 


Floppy port (unit #11: , #12: , #13: , #14: ) 


FD34 


-716 


EMA EOB and DINTR 


FD35 


-715 


Flcppy interrupt priority 


FD36 


-714 


Floppy interrupt base register 


FF00 to 


RCM address space 



FFFF 
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Table G-2. Interrupt Addresses. 



Hex 


Decimal 


Function 


0010 


16 




PFD Dower fail detect 


0011 


17 




BTO Bus time out 


0012 


18 




RTC Real time dock 


0016 


22 




Winchester disk 


001E 


30 




Floppy (unit #4: , #5; , #9: , #10: ) 


001F 


31 




Floppy (unit #11: , #12: , #13: , #14: ) 


0020 


32 




not used 


0021 


33 




not used 


0022 


34 




Serial port D output buffer empty 


0023 


35 




Serial port D input buffer full 


0024 


36 




Serial port D exception 


0025 


37 




Serial port C output buffer empty 


0026 


38 




Serial port C input buffer full 


0027 


39 




Serial port C exception 


0028 


40 




Parallel port #6: output 


0029 


41 




Serial port B output buffer entpty * ? r 


002A 


42 




Serial port B input buffer full 


002B 


43 




Serial port B exception 


002C 


44 




Paralld port #6; input 


002D 


45 




Serial port A output buffer empty 


002E 


46 




Serial port A input buffer full 


002F 


47 




Serial port A exception 


0030 


48 




not used 


0031 


49 




not used 


0032 


50 




Serial port H output buffer empty 


0033 


51 




Serial port H input buffer full 


0034 


52 




Serial port H exception 


0035 


53 




Serial port G output buffer empty 


0036 


54 




Serial port G input buffer full 


0037 


55 




Serial port G exception 


0038 


56 




Parallel port #27: output 


0039 


57 




Serial port F output buffer empty 


003A 


58 




Serial port F input buffer full 


003B 


59 




Serial port F exception 


003C 


60 




Parallel port #27; input 


003D 


61 




Serial port E output buffer enpty 


003E 


62 




Serial port E input buffer full 


003F 


63 




Serial port E exception 
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Table G-3. Mask Registers. 



Hex Decimal Function 



FC2C “980 Serial ports A-D, parall^ port #6: 



Bit 

15 Port A exception 
14 Port A input 
13 Port A output 
12 Parallel #6 input 



11 Port B exception 
10 Port B irput 
9 Port B output 
8 Parallri #6 output 



7 Port C exception 3 Port D 
6 Port C input 2 Port D 
5 Port C output 1 unused 
4 Port D exception 0 unused 



FD2C “724 



Serial ports E^, parallel port #27: 



Bit 

15 Port E exception 
14 Port E input 
13 Port E output 
12 Parallel #6 input 



11 Port F exception 
10 Port F input 
9 Port F output 
8 Parallel #6 output 



7 Port G exception 3 Port H 
6 Port G input 2 Port H 
5 Port G output 1 unused 
4 Port H exception 0 unused 



FC42 “958 BTO/PFD,RTC and cLockvalue nask 



Bit 

5 BTP 3,2,1 clock rates 

4 PFD 0 RTC 



InoteI 



Each mask bit set to 1 means the corresponding 
interrupt is enabled. 



input 

output 



input 

output 
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Table G-4. SB1600 l/O Addresses. 



Hex 


Decimal 


Function 


FC10 


-1008 


Serial port A (unit #1:,#2:) 


FC18 


-1000 


^stem status ward/ system control ^^rd 


FC20 


-992 


Serial port B (unit #7:, #8:) 


FC30 


-976 


Floppy port (unit #4: , #5: , #9: , #10: ) 


FC40 


-960 


Microcode use during interrupt handling 


PC42 


-958 


Interrupt mask roister for RTC,BTO, PFD 


FC43 


-957 


Interrupt base register ficr RTC^BTO, FFD 


FC48 


-952 


Interrupt enable aidress 


PC4C 


-948 


Reserved for DES, TOD 


FC60 


-928 


Microcode use duiring interrupt handling 


FC68 


-922 


Used by microcode to determine boot frcm RCM/ Density sel 


FC6C 


-918 


Parity error address / Disable parity check 


FC70 


-912 


Parallel port #6: 


FE00 to 
FFFF 


RO^ address space 



Table G-5. SB 1600 Intern: 5 )t Addresses. 



Hex 


Decimal 


Function 


0000 


00 


BTO Bus time outt. Parity error. Interrupt reply time out 


0020 


32 


Floppy (unit #4: , #5: , #9: , #10: ) 


0024 


36 


Serial port A input buffer full 2 - 1 ; 


0028 


40 


Serial port B output buffer empty [2 2 


002C 


44 


Serial port B input buffer full ;; 


0030 


48 


Serial port A output buffer errpty ' 


0034 


52 


Serial port A, Serial port B exception < 


0038 


56 


Parallel port #6; input 


003C 


60 


Parallel port #6: output 
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Hex 



Decimal 



Table G-6. S31600 Control Register. 

Function 



FC18 is the System Control Register/system Status Register depending v^hetlier 
it is read or written. 

FC18 read mode 
Bits 

15 Set to 1 to identify G Board status 

14. . 10 IMused 
9 Set when parity error 

8 Unused 

7 Set when memory reply time out 

6 Set when interrupts enabled 

5 Set vhen ECB true for EMA 

4 Set when DINTR for EMA 

3 Set when doi±)le density enabled 

2 Set when booting from fLojpy disk 

1 Set when 8 inch floppies in use, reset for 5.25 inch floppies 

0 Set when interrupt reply time out 



FC18 wnrite mode 
Bits 

15. .12 Diagnostic Result Bits (mrdware test points) 

11.. 8 Baudrate set for serial port B 

7 . . 0 Unused 
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APPENDIX H; BOOT AND INITIALIZATION DIAGNOSTIC MESSAGES 



The H3 hoot and operating system initialization sequence provide information 
to the user as to the bootstrap process. This information proves valuable 
in the event that the system does not boot. This information is in the form of 
words or nunbers displayed on the screen at various stages of the booting process. 
In a properly vorkir^ system, this display quickly changes, showing the progress, 
until finally the display is cleared, and the system pronpt line and welccme 
message appear. In the e/ent of failure on the part of either the sDfb'^^are or 
the hardw^e, the display stops at the point the problon occurred. The current 
state of the display could be given to a service representative and appropriate 
action may be taken. 

Pour rrain actions occur in system booting and initialization. The first is ex- 
ecution of the PRCM program (or microcode in the absence of PRCM) ^«hich deter- 
mines from, vhich disk to boot; then a small section of code call©! the primary 
bootstrap is loaded. 

On SB1600 series machines, the PRCM also performs low-level hardware diagnostics. 
On machines with older PRCMs or no PRCMs, no display occurs at this point. 

Two types of PRCMs are used: caie for the SB1600 series machines and one 

for the ME1600 series machines. The SB1600 PRCM first performs hardware diag- 
nostics; then it locates the first floppy drive with a diskette and loads the 
primary boot from that diskette. The ME1600 PRCM does not perform diagnostics 
but does look for a floppy drive with a diskette in it. If no floppy drive is 
found containing a diskette, a Winchester drive is sought firom vhich to boot. 



H.l SB1600 PRCM 



The SB1600 PRCM normally displays: TESTING 1.23. Normal deviations from this 
display include a repeating period before the "1" until a drive with a diskette 
in it is found. Also, a second period may appear after the "1" if a diskette 
is found that is not the same density as that originally set in the hardvymre. 
Any other deviations strongly suggest hardware problems and ^ould be pointed 
out to a service representative. 
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The following subsections describe the details of the SB1600 PRCM boot, built- 
in- test, and error codes. 



H . 1 . 1 Buil t-In-Test ( BIT ) 



DRB set to 0000 at Master Reset. (The DRB, diagnostic result bits, consist of 
four hardware prc±>e points . ) 

DRB set to 1111 at first instruction in PRCM. No RAM is needed at this step. 

Setup pointers in memory to memory mapped l/O space and fill all memory with 
0000. ERB set to 0001. Carriage return written to CRT. Line feed written to 
CRT. 

Write TIB to 7E00. Test high memory (8000 to FBFF) writing FFFF and then 
reading. If a test problem, error code 'a' written to CRT. 'T' written to CRT. 

Relocate stack to high memory. 'E' written to CRT. Transfer ccaitrol to high 
memory. 'S' written bo CRT. 

Test lew memory (0000 to 7FFF) by writing FFFF and then reading. If a test 
problem, error code 'b' written to CRT. 'T' written to CRT. 

Test for memory reply time out, interrupts disabled, interrupt time out. If 
a test problem, error code 'c' written to CRT. 'I' written to CRT. 

Test DMA register write/read. If a test problem, error code 'd' written to 
CRT. 'N' written to CRT. 

Test Floppy register write/read. If a test problem, error code 'e' written to 
CRT. 'G' written to CRT. 

Test serial port B register write/read. If a test problem, error code 'f 
written to CRT. 



H. 1.2 Boot from Floppy Disk 



written to CRT. Floppy given a force interrupt ccnmand and then drive 
ready status interrogated. Cfamnand sequencing is drive 0,1, 2, 3 corresponding 
to drives 4,5,9,10. '.' written to CRT for each not ready drive. 

'1' written to CRT if a ready drive found. 

Issue restore to track 0 coitnand to ready drive. If a problem, error code *h' 
written to CRT. DRB set to 0010. 

' . ' written to CRT. Issue seek to track 1 cctmand to ready drive. EEIB set to 
0011. If seek failure occurs, switch density and try until a disk can be 
read. 
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'2' written to CRT. Issue read track 1 connand to ready drive. If a prctolem, 
error code 'i' written to CRT. 



EKB set to 0100. Check read error status. If no error, then written to 
(2RT. 

Task switch to software boot that has just been read in from floppy. 

H.1.3 Error Codes 

'a' Failure in high memory test. 

'b* Failure in low memory test. 

'c* Manory reply timeout failure or interrupt reply timeout feilure or interr- 
upts incorrectly enabled. 

'd' ET-IA register test failure. 

'e' Floppy register test failure. 

‘f Port B register test feilure. 

'h' Floppy restore ocmmand feiilure. 

'i' Failure to seek track in either density. 

' j ' Track 1 read error either CRC error, lost data, record not found or DVIA 
time out. 
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H.2 ME1600 PRCM 



nie ME1600 PRCM normally displays: <f>. Ihe "<” is output inmediately after the 
PRCM boot begins execution. The "f" signifies that a floppy disk controller board 
is present. A "w" in place of the "f" signifies that a Winchester disk controller 
board is present. The ">" means that a successful disk read has conpleted. 



Normal deviations from this display include a repeating "f" until the PRCM boot 
finds a drive containing a diskette or a repeating "fw" pattern if the machine 
has a Winchester disk controller. Ihe "f or "fw" continues until the PRCM boot 
finds either a drive containing a floppy disk or a Winchester disk. 

Qice the primary boot is loaded by PRCM or microcode and executed, the primary 
boot attorpts to read the secondary bootstrap. If the secondary boot is being 
loaded from a floppy, the letters "floppy" are displayed. If the secondary 
boot is being loaded from a Winchester disk, the letters "winch" are displayed. 
If none of the messages appear or are not complete (such as "flo"), the disk 
does not contain a valid boot cxi it, or disk transfer problems may exist. 

Once the secondary boot is loaded from a disk, it displays a message giving the 
memory size it assumes vhile loading the operating system. This memory size 
is a parameter supplied during the bootmake operation, ^stons called 
"128K-byte" system actually have only 126K bytes of RAM that the system can use; 
the remaining 2K bytes are used for the PRCM and hardware device cotinunication. 
After the msmory size is displayed, the secondary boot attempts to load the por- 
tions of the operating system necessary to initialize the system. 



At that point, ccxitrol goes to the initialization code of the operating system 
to set ip the l/O driver tasks, system files, and other operating system control 
structures. IXiring initialization, numbers are written to the screen on top of 
one another. A few of these numbers are key numbers used to diagnose problems. 



If no nuibers are displayed after the secondary boot displays its message, the 
secondary boot most likely failed to load all required portions of the operating 
systen. Below is a list of stopping nunbers and the problems they suggest: 



6 

7 

8 

10 



11.. 14 

15,16 

17 



0..255C 



21 

22.. 27 
28 



serial or parallel ports 

flofpy 

winchester 

serial ports 

interrupts 

system configuration / unital location / winchester 

dock / reading from system disk 

any nunber followed by a 'c' indicates problems 

with d earing that unit. 

memory parity 

system file initialization 

system not loaded properly / disk reading problen. 



After all nunbers have been displayed, the welcome message i^ould appear, followed 
by the parompt line at the top of the screen. 
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APPENDIX I 



. III.O OPERATING SYSTEM OX>BAI5 [H3] 



ITie following cjode represents the glcbals for release H3 of the III.0 
Operating System. Ihe order of VAR declarations is stable and is 
guaranteed not to change from the declaration of SY5CCM to the declar- 
ation for UNITABLE. 



const 

{ constants for pnachine statanents } 

{ Tib Registers Execute errors Operators } 



rqreg = -3 


syserr = 0 


ssvreg = -2 


invinx = 1 


ctpreg = -1 


noproc = 3 


priorreg = 1 


stkovr = 4 


splowreg = 2 


syioer = 9 


spuprreg = 3 


uioerr = 10 


spreg = 4 


fperr = 12 


rrpreg = 5 


s21ong = 13 


bpreg = 6 




usvreg = 11 





sto 


= 


196 


leusw 


= 180 


1dm 


= 


208 


geusw 


= 181 


Idb 


= 


167 


adi 


= 162 


stb 


= 


200 


sbi 


= 163 


ITDV 


= 


197 


cxg 


= 148 


sind0 


= 


120 


cxi 


= 149 


sindl 


= 


121 


cpf 


= 151 


inc 


= 


231 


rpu 


= 150 


Ixiot 


zs 


159 


Isl 


= 153 


ixa 


= 


215 


Ipr 


= 157 


bpt 


= 


158 


spr 


= 209 



{ 

} 

const 

vidleng 

tidleng 

maxdir 

fblksize 

dirblk 

agelimit 



Definitions cormon to more than one set of types 



= 7; 
= 15 
77 
512 
2 

300 



{ max number of entries in a directory } 

{ standard disk block length } 

{ disk addr of directory } 

{ max age for gdirp...in ticks (5 seconds) } 



cmaxunit = 255; 

oldmaxunit = 27; 

maxsysunit = 127; { 

mindiskunit = 4; 



{ the dd (pre-H3) rraximum unit number } 
rraximum number of system serial & parallel units } 



configversion = 'WD02'; 
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{ These are hardware determined numbers } 
maxdrive =3; {4 possible ; 0. .3 } 

{ for the Winchester controller } 

maxheads = 8; { the inaximurn number of heads } 

maxcyl inder = 1023; { 1024 possible : 0..1023 } 

type 

vid = stringCvidleng]; 

tid = stringCtidleng]; 

alpha = packed array [0..7] of char; 

window = packed array [0..0] of char; 

windov^p = ^windcw; 

dp_integer = record 

lo : integer; 
hi : integer ; 
end; 
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{ 

} 



Unitable related types 
Needs t canmon 



unitnum = 0 . . ol dmaxunit ; 

devtype = (invalid, fLoppydisk, parallel, serial, winchdisk {& others}); 
unitentry = packed record {an entry of unitable} 

uvid ; vid; { VDLIME ID FOR IIJIT } 

ui^lkd : boolean; 
case utype ; devtype of 

fLoppydisk, winchdisk ; (ueovblk; integer); 
serial, parallel : (port for: integer) 

end { unitentry } ; 

arrayunitable = array[0. ocsnaxunit] of '^unitentry; 
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Directory related types 



{ ARCHIV?^:. INFO. . .THE EATE } 



daterec = packed record 
month: 0. . 12; 
day: 0. .31; 

year: 0. .103 

end { DATEREC } 



dir range = 0..maxdir; 



{ 0 IMPLIES DATE NOT MEANINGFUL } 
{ EAY OF MOSTTH } 

{ 100 IS TEMP DISK FLAG } 



{ DISK DIRECIOUES } 



filekind = (untypedfile, xdskfile, codefile, textfile, infofile, 
datafile, graffile, fotofile, securedir); 

direntry = record 

dfirstblk: integer; { FIRST EHYSICAL DISK ADEK } 
dlastblk: integer; { POINTS AT BLOCK FOLLOWING } 
case dfkind: filekind of 
securedir, 

untypedfile: { ONLY IN DIR[0]. . .VDLIME INFO } 



(dvid: vid; 
deo\t)lk: integer; 
dnumfiles: dirrange; 
dloadtime: integer; 
dlastboot: daterec); 
xdskf il e , codef il e , textf il e , infof il e , 
dataf il e , graf f il e , f otof il e : 

(dtid: tid; 

dl astbyte : 1 . . fbl ks ize ; 
daccess: daterec) 
end { DIRENTRY } ; 



{ NAME OF DISK \^LUME } 

{ LASTBLK OF \^LLME } 

{ NIM FILES IN DIR } 

{ TIME OF EAST ACCESS } 

{ MOST RECENT CATS SETTING } 



{ TITLE CF FILE } 

{ NUM BYTES IN LAST BLOCK } 
{ EAST MODIFICATION DATE } 



dirp = ''directory; 



directory = array [dirrange] of direntry; 




{ 

} 



Configuration record related types 



{ declarations needed for the configuration table } 

fLoppytype = (eight_inch, five_incih, {others}f2,f3,f4,f5,f6, f7,f8); {4 bits} 

driverange = 0. .maxdrive; 

cylndrange = 0. .maxcylinder; 

diskunits = mindiskunit . .csnaxunit; 

sysunits = 1. .maxsysunit; 

sunitset = set of sysunits; { 8 words] 

unitset = set 'of diskunits; {16 words] 

{ system configuration of unit nurrber mapping to types of disk drives ] 



punitinfo = ^unitinfo; 
unitinfe) = record 

cylinder : cyindrange; 
block ; integer; 
voLlen ; integer; 
end; 

configrec = record 

version : packed array [0.. 3] of char; 

{ identifies this as a valid configrec ] 

{ this field is initialized v^hen loaded ] 

drive ; packed array [diskunits] of driverange; 

{ the disk oontroller drive number of unit ] 

{ characteristics of a particular Winchester drive ] 
winchdrive : array [driverange] of 

record {this record unpacked for speed] 
maxcyl : cyindrange; 

numofheads ; 0. .maxheads; 

blockspertrack ; 0. .255; 

step_rate : 0. . 15; 

end; 

{ map of unitnurrbers to drive and disk location & length ] 
pwinchunit ; array [diskunits] of punitinfo; 

end ; { configrec ] 
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static_cxDnfigrec = { the farm of the cx>nfiguration record oi disk } 
record 

version : packed array [0.. 3] of char; {2 'words} 

{ identifies this as a valid oonfigrec } 

serial set ; sunitset; {8 words] 

{ the system defined serial units } 
parallset : sunitset; {8 words] 

{ the systan defined parallel units ] 
floppyset ; unitset; {16 words] 

{ those units that are on floppy drives ] 

{ this field is currently unused ] 

floppydrive : packed array [0..7] of flqppytype; (2 words] 

{ type of flojpy drive ] 

{ remainder of the 64 words in the last sector on a floppy 
track, for added future data fields ] 
reserved : array [1..28] of integer; 

{ fields below this line are only on Winchesters ] 

winchset ; unitset; 

{ those units that are on l^nchester drives ] 

{ map of unitnuiTibers to drive and disk location & length ] 
winchunit : array [diskunits] of unitinfo; 

{ the form the configuration record will take in memory ] 
dynamic_config : configrec; 

end ; { static_conf igrec ] 
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static_c3onfigrec = { the S3m of the oonfiguration record oi disk } 
record 



version; 

serial set ; sunitset; 

{ the system defined serial units } 
parallset : sunitset; 

{ the system defined parallel mits } 
fLoppyset : unitset; 

{ those units that are on floppy drives } 

{ this field is curroitly unused } 
floppydrive ; packed array [0..7] of flLqppytype; 

{ type of floppy drive } 

reserved ; array [1..30J of integer; 

{ fields belcw this line are only on Winchesters } 

winchset : unitset; 

{ those units that are on Winchester drives } 

{ map of unitnumbers to drive and disk location & length } 
winchunit ; array [diskunits] of unitinfo; 

{ the farm the configuration record will take in memory } 
dynamic_config : configrec; 

end; {static_configrec} 
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{ 



l^stem cxamtunication area (syscan) 
and related types 



Needs definition of static_<x>nfigrec, configrec, dirp. 

The needed definitions are in t_config, t_directry. 

(these types are used for pointers to these objects, so they could be 

replaced with integers, i.e. 
type dirp = integer; ) 



{ declarations supporting idsearch / treesearch intrinsics — } 

{ ccrapiler using idsearch will have set up rw table with correct } 

{ len for rwinfo, and have set syscan^. rwtable to point to it. } 
trsnodep = "^trsnode; { syiribol table node declaration } 

trsnode = record { — used by treesearch } 

key : alpha; 
rlink : trsnodep; 

11 ink : trsnodep; 
end; 

idsinfo = record { idsearch returns results via this } 

syracursor : 0. .1023; { "pseudo record", ccmpiler must } 

sy ; integer; { declare vars in this order and } 

op : integer; { pass its symcursor to idsearch. } 

id : alpha; 

end; 

rwtblrec = record 

rwindex : array C 'A ] of integer; 
rwinfo ; array [0..0] of 
record 

id ; alpha; 
sy : integer; 
op ; integer; 
end; 

end { rwt±)l r ec } ; 

{ SYSTEM OCMMUNICATION AREA } 

{ SEE INTERPRETERS. . .NOTE } 

{ THAT ASSUME BACKWARD } 

{ FIELD ALLOCATION IS DONE } 

sysccmrec = record case integer of 

1 ; { boot__config : ^static_config 

{ points to (tesrporary) location of 
the system configuration table at 
boot time, tables will be relocated 
later (in Initialize?) PLB }); 
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2 ; ( csDnfig : ^configrec; 

unused : integer; { 1 spare ward. } 

sysunit: integer; { PHYSICAL LNIT CF BOamOAD } 

rwtable; ^rwtblrec; { reserved word table fbr treesearch } 

gdirp: dirp; { GLCBAL DIR B3It3TER,SEE VDLSEARCH } 

disld-nfo: packed record 

dseekrate: integer; {SIEP RATE FOR DISK DRIVE} 
dreadrate; integer; {DISK READ CCMMAND} 
dwriterate: integer ; {DISK WRITE 0ayB!4AND} 
end; 

auxinfo : packed record 

baudrates: packed array [0..7] of 0. .15; 

{ 2 vsAords, indices [0/4] not used } 
xonoff: packed array [0.. 7] of boolean; 
clockvalue: integer; { tick dock rate } 
menudriven; boolean; { using *systesn.menu } 
transparent: packed array [0.. 7] of boolean; 

{ ignore special cihars serial 10, no strip bits] 
end; 

auxdata: packed record 

spare7 , spare6 / spareS , spare4, 
spares / spare2 / sparel , spare0 : bod ean ; 
end; 

maxserports : 0..7; 

expanstvro; array [0. .9] of integer; {spares} 
auxcrtinfo: packed record 

verdlaychar: char; 
killqueue: char 
end; 

curtime : dp_integer; {hi,lo: integer} 
miscinfo: packed record 

ncbreak , stupid , si cwterm, 
hasxycrt , has! ccrt , 
nointerrupts /hasdock; bod ean; 
userkind; (normal, aquiz, booker, pquiz) 
end; 

crttype: integer; 
crtctrl ; packed record 

rl f , ndf s , eraseeol , eraseeos ,hcme, escape : char ; 
backspace; char; 
fillcount; 0. .255; 
dearscreen, dearline; char; 
prefixed; packed array [0. .8] of boolean 
end; 

crtinfo; packed record 

width /height ; integer ; 
right /I eft /down, up; char; 
badch / chardd , stop , break , fl ush , eof ; char ; 
altmode/linedel ; char; 
backspace, etx, prefix; char; 
prefixed; packed array [0..13] of boolean 
end ); 

end { SYSCCM }; 
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{ 



} 



File Information Block 
and related types 

Needs definition of vid, tid, direntry, fblksize. 
The needed definitions are all in t dir ec try. 



{ FILE INFQEM?VnON } 



closetype = (cnormal, clock, cpurge, ccmnch); 
fibp = ^fib; 

fib = record 

fwindow: windowp; { USER \VINDOW. . .F", USED BY GET-PUT } 
feof,feoln: boolean; 
f state : ( f jandw, fneedchar , f gotchar ) ; 

frecsize: integer; { IN BYTES. . .0=>BLOCKFILE, 1=>CHARFILE } 
case fisopen; boolean of 



true; (fi^lkd; boolean; 
f uni t ; integer ; 
fvid: vid; 
freptcnt, 
j&ixthlk, 

finaxblk; integer; 
fmodi f ied :bodl ean ; 
fheader; dir entry; 
flock : semaphore; 



{ FILE IS ON BLOCK DEVICE } 

{ PHYSICAL UNIT # } 

{ VOLLME N?\ME } 

{ # TIMES F" VALID W/O GET } 
{ NEXT REL BLOCK TO 10 } 

{ MAX REL BLOCK ACCESSED } 

{ SET NEW DATE IN CLOSE } 

{ COPY OF DISK DIR ENTRY } 



end { FIB } 



{ File access lock. } 
case fsoftbuf; boolean of { DISK GET-PUT STUFF J 
true : ( fnxtbyte , fmaxbyte : integer ; 
fbufchngd; boolean; 

fbuffer; packed array [0. .fblksize] of char)) 
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{ 

User Wbrk file stuff 

Needs definition of fibp, vid, tid. 

The definitions can be found in t_directry, t_fileinfo. 



} 



inforec 



record 

symfibp# code fibp: ^fib; 
errs^m , errblk , ermum : integer ; 
si GM^erm, stupid: boolean; 
altinode: char; 
gotsym,gotcode: boolean; 
workvid , symvid , codevid : vid; 
worktid,symtid,codetid: tid; 
end { INFOREC } ; 



{ WO^ILES FOR SCRA.TCK } 

{ ERROl STUFF IN EDIT } 

{ STUDENT RROCPAMMER IDi 1 } 

{ WASHOUT CHAR FOR OCMPILER } 
{ TITLES ARE MEANINGFUL } 

{ PERMStCUR V^ORKFILE MDEUMES } 
{ PERM&CUR \^KmFlLES TITLE } 



{ 

} 

OC»IST 

osversion 

useCDint 

nmaxint 



System definitions 



= '[H3]'; {cannon os base} 

= false; { v\^ether to use carrier det interrupt for remote l/o] 
= 32767; { maximum integer value } 



has_timed_out = -1; 
not_in_tiine_q = -2; 



firstsysseg = 0; 
maxsysseg = 127; 
firstuserseg = 128; 
maxuserseg = 255; 
maxsubseg = 15; 

{ THESE OaSfSTANTS USED BY l/O ROUTINES } 



anaxport 


= 


1 


{0..1} 


maxcard 


= 


1 


{0..1} 


maxretry 


= 


4 


{ 


retry count for disk drivers } 


mievalue 


= 


1 


{ 


interrupt oiable value } 


eol 


= 


13 


{ 


end-of-line — ASCII cr } 


die 


= 


16 


{ 


blank ccnpression code } 


maxq 


= 


79 


{ 


type-ahead queue index limit } 


maxqpl 


= 


80 


{ 


type-ahead queue length } 


xonqavail 


= 


60 


{ 


number of characters available before xon sent 


xoffqavail 


= 


20 


{ 


number of characters available before xoff sent 


XOQ 


= 


17 


{ 


control -Q transmitt on } 


xoff 


= 


19 


{ 


control -S transmitt off } 



} 



} 
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hdiskaddr = -912; { FC70 Winchester address } 

cond_hog = false; 

hiiopriority =250; { kbddriver (serial input) processes } 
midiopriority = 245; { disk in/out, parallel out, serial out } 

lowiopriority = 240; { lowsst priority for system processes } 

TYPE 

byte = 0. .255; 

iorsl tv\d = ( inoerror , ibadbl ock, ibadunit, ibadmode , itiraeout , 

11 ostunit , il ost f il e , ibadti tl e , inorocm , inounit , 
inof il e , idupf il e , inotcl osed , inotopen , ibadformat , 
iwriteprot) ; 

{ CCMMAND STATES. . .SEE OETCMD } 

andstate = (haltinit,debugcall, 

uprognou , uproguok , sysprog , 
coiponl y , conpandgo , caipddDug , 

1 inkandgo , 1 inkddDug ) ; 

{ CODE FILES USED IN GETCMD } 
sysfile = (adaconp,caipiler, editor, filer,l inker ) ; 
integerp = "'integer; 

bytearray = packed array [0. .0] of byte; 
codeseg = record case boolean of 

true: (int: packed array [0..0] of integer); 

false: (byt: bytearray); 
end; 

sibp = ^sib; 

sibvec = array [0..0] of sibp; 
sib = record { segment info block } 

segbase: ^codeseg; { memory address of seg } 

segleng: integer; { # words in segment } 

segrefs: integer; { active calls - micixxxDde mintained } 

segaddr: integer; { absolute disk address } 

segunit: integer; { physical disk unit } 

prevsp: integerp; { SP saved by getseg fDr relseg cut back } 
end { sib } ; 
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nscv\p = unscw; 
inscw = mcked record 



{ mark stack control vord } 



msstat: mscv\ip; 
msdynl; mscwp; 
msipc : integer ; 

msseg: byte; 

ms flag: byte 
end { mscw } ; 



{ lexical parent pointer } 

{ ptr to caller's mscw } 

{ byte irKiex in return code seg } 
{ seg # of caller code } 



sertp = ^semtrix; 
tibp = tib ; 

tib = record { Task Information Block } 
regs: packed record 
waitq: tibp; 
prior: byte; 
flags: byte; 
spL cm: integerp ; 
spupr: integerp; 
sp: integerp; 
np: mscwp; 
bp: mscvyip; 
ipc: integer; 
segb: ^codeseg; 
hangp: sesnp; 
iorslt : iorsltvvd; 
sibs: ^sibvec 
end { REGS } ; 
maintask : boolean; 
startmscw : mscvp; 
nexttib : tibp 
end { TIB } ; 



{ QUEUE LINK PGR SEMAPHORES } 

{ TASK'S CPU ERIORITY } 

{ STATE FLAGS. . .NOT EEFINED YET } 
{ LOWER STACK POINTER LIMIT } 

{ UPPER LIMIT STACK } 

{ ACTUAL TOP-OF-STACK POINTER } 
ACTIVE PROCEDURE MSCW PTR } 

BASE ADDRESSING ENVIRONMENT PTR 



BYTE PTR IN CURRENT COrE SEG 
I PTR TO SEG CURRENTLY RUNNING 
{ WHICH mSK IS WATTING ON } 

{ Result of last l/O call . } 

{ ARRAY OF SIBS FC^ 128. . 255 } 



true if tib is root task (os tib) } 
top mscw in task's stack } 

next pointer fur list starting with} 



decraax = integer[36]; 

longtrix = record case integer of 

0: (intar: array [0..0] of integer); 

1: (BCDar: packed array [0..0] of 0. .15) 
end [longtrix] ; 



bytetrix = record case integer of 
1: (int : integer); 

2: (byte : packed array[0..1] of 0..255) 
end; 



meintrix = record case integer of 



1 


( addr 


integer ) ; 


2 


( loc 


integerp ); 


3 


( wp 


windowp ); 


4 


( int 


integer ); 


5 


( pack 


packed array [0..1] of byte ); 



end; 
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{ semaphore to signal to awaken } 



un_signed = record case integer of 

1 ; ( i : integer ); 

2 : ( p ; integerp ) 
end; 

clocknode = record 

delay_sem : serrp; 

timed_out : "'boolean; 

time_out : dp_integer; { time to be awaken } 

time_link : ' clocknode; { points to next docknode } 

end; 

segrange = firstsysseg. .maxuserseg; 
segsiibrange = 0. .maxsubseg; 
segpage = record 

diskinfb ; array [segsiibrange] of 
record 
codeleng, 

codeaddr : integer 
end; 

segname : array [segsubrange] of alpha; 

segkind ; array [segsiibrange] of 

(linked, hostseg, segproc, unitseg, seprtseg); 
textaddr : array [segsiibrange] of integer; 

seginfo : array [segsiibrange] of 

packed record 

segnum ; segrange; 
codeversion ; 0. . 255 
end; 

notice : string[79]; 

codekind ; (static, vectored); 

lastseg : integer; 

lastcodeblk ; integer; 

filler : packed array [1..56] of char 

end; 

copierrec = record 

request_rendezvous : semaphore; 

end_rendezvous : semaphore; 

copierbusy ; boolean; 

kill copy ; boolean; 

sunit ; integer ; 

dunit : integer 

end; 
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sys_c»ntrol_wD 2 :Td = packed record 

filler : 0. .255; 
baud_rate : 0..15; 
drb : 0. .15 

end; 



sys_stat_wDrd = 
packed record 
case integer of 

1: (int : integer); 

2; (is_G_board, { bit 15, G Board Identification } 

bitl4, bitl3, bitl2, bitll, bitl0, 

{ bits 10-14, ???? } 

PERR, { bit 9, Parity Error } 

bits, { bit 8 } 

MDEMRTO, { bit 7, Memory Reply Timeout } 

INTEN, { bit 6, Interrupt Enable } 

EQB, { bit 5, BOB } 

DIISTTR, { bit 4, DINTR } 

DDEN, { bit 3, Double Density Enable } 

BFFD, { bit 2, Boot From Floppy Disk } 

eight_inch, { bit 1, indicates if 8" or 5.25" floppy } 



IACJ<RTO { bit 0, Interrupt Acknowledge Reply Timeout} 

: boolean) 

end; 



{ bits 7 . . 0 } 
{ bits 11 . . 8 } 
{ bits 15.. 12 } 
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I **************************************************************************** 

THE REMAINING TYPE EECLARATIONS ARE FOR THE GOSTTROL 
DISK, SERIAL, AND PARALLEL l/O 

**************************************************************************** j 

semtrix = record case integer of 
0: (sem: scanaphore) ; 

1: (fakesem; record 

count; integer; { outstanding signals } 
waitq; tibp { task queue } 
end) ; 

end { sen } ; 

{ far devices that use same reg for stat and and } 
statcmdrec = record case integer of 

1 ; ( bit0 ; boolean ); { efficent way of testing bit 0 } 

2 ; ( comnand : integer ); 

3 ; ( status : packed array[0..7] of boolean ); 

end; { for devices that use same reg for stat and and } 

dstatrec = packed record case integer of {status / comnand reg} 



1: (ccmnand 


integer); 


2; (bow 


boolean; 


dint 


boolean; 


toi 


boolean; 


tczi 


boolean; 


ion 


boolean; 


hbus 


boolean; 


aece 


boolean; 


busy 


boolean) 



end; 



dmacntrbits = (RUN, DIE,TOIE,TC IE, ICM,hbUS,AECE, unused ) ; 
dmarec = record { DyiA device register uses for both floppy and 

winchester disk accesses } 
dcontrol ; set of dmacntrbits; 
dstatus : dstatrec; {status / ccmnand reg) 

trcountl : integer; {transfer count low order byte] 

trcounth : integer; {transfer count high order byte} 

bufaddl ; integer; {transfer buffer address low byte} 

bufaddh ; integer; {transfer buffer address high byte} 

memex ; integer; 

intbase : integer 

end; 
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fsccmrec = packed record case integer of {status / canraand reg} 
{ variants 0..4 represent ocrmand bits } 



0; (allbitsint 


integer); 


1; (coTiTiand 


set of 0. . 7) ; 


2: (connandint 


0..25S); 


3: (drivesel 


packed array[-8. .7(0. .3 are drives}] of boolean) 


4: (filler0 


boolean; 


fillerl 


boolean; 


filler2 


boolean; 


fillers 


boolean; 


filler4 


boolean; 


fillers 


boolean; 


fillerG 


boolean; 


filler? 


boolean; 


fillers 


boolean; 


fillers 


boolean; 


fillerl0 


boolean; 


fillerll 


boolean; 


unusedl 


boolean; 


unused2 


boolean; 


densitysel 


boolean; 


sidesel 


0..1); 



{ the remaining variants represent status bits } 



(busy 


boolean; 


index 


boolean; 


track0 


boolean; 


bits 


boolean; 


seekerror 


bool^n; 


headloaded 


boolean; 


bit6 


boolean; 


notready 


bodean) ; 


(bit0 


boolean; 


drq 


boolean; 


lostdata 


bodean; 


crcerror 


boolean; 


rnf 


bodean; 


writefault 


bodean; 


writeprotect 


bodean; 


bit? 


boolean) 



end; 
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fLoppyrec = record {floppy device regiseter} 

fstatccm : fsconrec; {floppy status ocramand register} 

track : integer; {current track number. FDC updates this) 

sector : integer; {sector to read or write} 

data : integer; {for track to se^ to. also data to read 

or write if no EMAC used} 

edbdintr : sys_stat_word; {has ecto and dintr bits J6or modular} 
intprior : integer; 
flintbase; integer; 
filler : integer; 

dma : dmarec {floppy dma controller follows floppy regs} 

end; 



taskfyle = packed record 

curblock : integer; 
case integer of 



curcyl inder 
lo_cyl inder 
tenp_hi_cyl 
hi_cyl inder 
curhead 
curdrive 
secsize 
zero bits 



integer 
byte; 
byte; 
integer; 
0..7 
0..3; 
0..3j 
0. .511 



); 



); { 



end; 



{ for mass assignment } 



{ working copy here } 



these bits MUST be zeroed } 



winchrec = record 



wiatareg : integer; 




werrprecon : statcmdrec; 




wsectorcnt : integer; 




case integer of 
1 : ( taskfile : 


taskfyle ); 




2 : ( wsectomum 


; integer; 




wcyllow 


: integer; 




wcylhigh 


; integer; 




wsdh 


; integer; 




wstatcon 


: packed record case integer of 




1: (cannand 


integer) ; 




2; (error 


bodlean; 




unusedl 


boolean; 




unused2 


boolean; 




datarequest 


boolean; 




seekccmplete 


boclean; 




write fault 


boolean; 




ready 


boolean; 




busy 


boolean) 


dma 


end; 

: dmarec) 





end; 
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{ DISKBCftRD AND DISKCCNTROL ARE IHE OCMMUNIGATION LINK BET\^EEN DISKIO 
AND TEffi FLOPPY AND V7INCHESTER ERIVERS } 

diskbcard = record {disk control block for one floppy / winchester board} 
disksem : semaphore; (attached to EMA/ floppy interrr^t} 
disktrix : record case integer of- {floppy/EMA device regs] 

0 ; (address s integer); 

1 : (floppy : ^floppyrec); 

2 ; (hdisk s ^winchrec) 

end; 

dintrecto : ''sys_stat_wDrd; { points to register on floppy 

board if modular otherwise 
it points to the system 
status v^Drd } 

(density reflects density last time drive was accessed] 
curdrive : 0..3; 

density : packed array[0..3] of boolean; 

end; 

modes = (readmode, writenode, dearraode); 

diskcontrol = record (floppy control block for all floppy boards} 

disklock : semtrix; (limits use of floppies to cne at a time} 
unitselect; integer; ( reflects unit number } 
buffer ; windcx^p; ( transfer buffer pointer } 

boardnon : 0. .raaxcard; ( floppy board # for this access} 

board : array [0. .raaxcard] of ^diskboard; (fields unique to 

indiviual boards} 

mode ; modes ; 

flags ; integer; (2 = physical sector mode} 

trcount : integer; (bytes to transfer} 

inx ; integer; (offset in to start transfer} 

startblock: integer; (block to start transfer} 
ioerror : iorsltwl; (error result of tranfer} 
haswork ; semaphore; (signals driver to begin transfer} 
ready : semaphore (signaled vhen transfer oorrplete} 

end; 
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{ CayMTJNIGATION LINK BETWEEN LNITREAD/UNITWRITE AND 
THE PARALLEL AND SERIAL DRIVERS } 



iorequest = record {Ccrrm link between 



iohavewDrk 
1 ioreaiy 
4 iodone 
i iounit 
7 iowindcwp 
r ioflags 
^ ictoytes 
/- ioinx 
end; 



semaphore; 
semaphore; 
semaphore ; 
integer; 
windcwp; 
integer; 
integer ; 
integer 



l/O drivers and unitread/unitwrite} 
{tells driver to begin transfer} 
{locks port to one at a time use} 
{signalled vhen l/O ccmpiete} 

{unit number for l/o} 

{points to buffer for transfer} 
{transfer mode bits} 

{number of bytes left to transfer} 
{offset in icwindowp for tranfer} 



{********** PARALLEL l/O TYPES **********} 
cards = 0. .maxcard; 

p)aralrec = record {parallel port registers} 
porta : statandrec; 

portb ; integer; 

portc : statcmdrec; 

pcontrol : integer; 

end; 

parcontrol = record {control block for parallel cannunication} 

p)araltrix : record case integer of {parallel device registers} 

1 : (pdevadd : integer); 

2 : (parallel : ''paralrec) 
end; 

paronline : bodean; {true if mitclear found device online} 
parsem : semaphore; {attached to parallel interrupt} 
request : iorequest {conn link to parallel output driver} 
end; 
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» 

^ ********** SERIAL l/O TYPES ********** j 
ports = 0. .canaxport; 

cntrllbits = (DTR,RTS,RE,PE,BGEC),ST0P1,BRK,NPML); 
serial rec = record {serial port registers} 

data ; integer; {data to be read or written] 

status : packed record case integer of 
1: (carmand ; integer); 

2: (bit0 : boolean); 

3; (thre ; bodean; 

dr : boolean; 

oe : boolean; 

parityerr : boolean; 

fe : boolean; 

cd : boolean; 

dsr : boolean; 

dsc : boolean) 

end; 

control 2 : integer; {control register 2} 

control 1 : set of cntrllbits; {control register 2} 

filler ; integer; 

baudrate ; integer {baudrate select on I'lE1600s} 

end; 

auxsercntrl = record {ccxitrol block for serial cximiunication} 

^ qlock ; semaphore; {locks use of rear and front] 

2 havch : semaphore; {kbddriver signals vhen it has char] 

Y writesem t soivafSiore; {attached to serial output internet ] 

f writebeLl ; sanaphore; {tells bellprocess to ring bell 

for input buffer overflow] 

t readson ; semaphore; {attached to serial input internet] 

0 rear ; integer; {points to rear of input queue] 

1 front ; integer; {points to front of input queue] 

2 chq ; packed array [0. .maxq] of byte; {input queue] 

serial trix ; record case integer of {serial device registers] 

0: (sdevadd: integer); 

1; (serial: ^serial rec) 
end; 

53 stst ; semaphore; {stopped output mit on this] 

55 stv^itno ; integer; {number of tasks w/ output stopped] 

ffLag : boolean; { true means flush output ] 

sflag : boolean; { true means freeze outpat ] 

ioerror : iorsltvyd; { kind of error during l/o ] 

'7 xofflag ; boolean { true means xoff sent ] 

end; 
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serccffitrol = record {these Logically belong with auxsercntrl, but 

would upset sequence of U- glctoal variables} 

0 avail ; integer; { bytes available in input queue } 

! statusq ; packed array C0..maxq] { true if error in } 

of boolean; { read } 

6 sendxoff : semaphore; { tells writexoff to send an xoff 

char if xon/xoff enabled } 

Iport : ports; { port number for this record } 

? cardetsan : semaphore; { signaled v\hen carrier goes high} 

seronline ; bodean; { port online \rthen last checked } 

request ; iorequest; { conn link betvs^en to driver } 

auxport : ^auxsercntrl (more fields like those in this 

record } 

end; 



arraysercntrl = array [0..0] of sercontrdl; {actual instance of this type 

may be less tlian cmaxport long} 
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VAR 






syscon : 
gfiles : 
userinfo : 
ostibp : 
errptyheap: 



^sysccmrec; { MAGIC EARAM. . .SET UP IN BOOT } 

array [0..5] of fil>p; { not used anyv^ere GLOBAL FILES, 0=INPUT, 



inforec; 

tibp; 

^integer; 



input fib , outputf ib , 
system, swapf ib ; f ibp ; 
syvid,dkvid: vid; 



thedate 

state 

heapinfo 



taskinfo 



{ WORK STUFF FOR OCMPILER ETC } 

{ taskinfo block of cp sys prog } 

{ HEAP MARK FOR MEM M?^GING 
{ CONSOLE FILES. . .OFILES ARE COPIES } 
{ CONTROL AND SWAPSPACE FILES } 

{ SYSUSfIT MOLID & DEFAULT VDLID } 

{ TODAY. . .SET IF FILER OR SIGN ON } 

{ FOR (ETCCMMAND } 

{ heap management } 



ipot 

filler 

digits 

pi 

chainname 



: daterec; 

: cmdstate; 

: record 

lock: semaphore; 
topmark, 

heaptop: integerp 
end { heapinfo } ; 

: record { stuff for task nanageraent } 

" lock: SQiiaphore; 

taskdone: semaphore; { signalled v\hen task stops } 

’■? ntasks: integ^ { decremented vvhen task stops } 

end I taskinfo } ; 

array [0..4] of integer; { INTEGER POSTERS OF ^lEN } 



string[41]; 
set of '0'..'9' 
string; 
string[23]; 



{ NULLS FOR CARRIAGE EELAY } 



.1 oldunitable 



750 filename : 

71 C topofsibs: 
safedisknrade 



{ prcrcpt line } 

{ chainer sets this - length > 0 means } 

{ next getcmd executes chainname } 
array [unitnum] of unitentry; {27 unit descriptors to be 

canpatible with dd programs. 
Remaining unit descriptors 
are in unitable ^ich has 
pointers to these entries as 
well} 

array [sysfile] of string[23]; { 'sys tern. filer etc. } 

^integer; 



boolean 



?°)2 oldport : array [ports] of auxsercntrl; (two serial port control 

blocks to be ccmpatible with 
old programs. Remaining control 
blocks pointed to by serport 
vhich also points at these two 
blocks} 

mcdular : boolean; (is currently an ME1600 caiputer} 

{largest unit currently available} 

{name of vol, unittype, etc.} 



; ; 



mcdular 

maxmit 

unitable 



boolean; 
integer; 
^arrayunitabl e ; 



{•• Variable access by systan U- programs ends here } 



l=OUTPUT } 
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THIS PAGE IS INTEOTIONALLY LEFT BIANK FOR FORMATTING PURPOSES . 
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APPENDIX J: mBDtmfE AND SOFTWARE CHANGES FOR III.0 OPERATING SYSTEM 



VERSIONS G0 TO H3 



Appendix J outlines the hardware and software changes that have occurred between 
version G0 and version H3 of the III.0 Operating System. Section J-1 describes 
the changes from version G0 to H0. Section J— 2 discusses the changes from ver- 
sion H0 to HI. Section J-3 explains the improvements introduced in version H2, 
and Section J-4 outlines further inprovernents introduced in H3. 



J-1. CHANGES FROM VERSICftJ G0 TO H0 



Between versions G0 and H0 of the III.0 Operating System, the hardware was ipgra- 
ded to handle interrupts and Microns 14, 15, and 18 were installed. 

The Operating System changed from noninternpt to interrupt driven. 

The H0 Ccnpiler generated BN3T opcode instead of INOT, which the G0 Ctonpiler had 
generated. This change fixed prchlems such as ORD (NOT EAIBE) returning a neg- 
ative value. 



J-2. CHANGES FE01 VERSION H0 TO HI 



For version HI, the code for the START process was enhanced to fix an inconsistency 
in process priority. 

The number of user segments increased from seven to nine. 
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J-3. 



GH?^GES FRCM VERSION HI TO H2 



With version H2, the number of user segments increased from nine to 128. 
The irHximum aode-segment size increased froin 32K bytes to 64K bytes. 



J-^. CH?\NGES FRCM VERSION H2 TO H3 



The H3 version supports a hardviere upgrade for the ME1600 tliat allows soft- 
ware selectable flqppy-disk deisity. This hardvsere upgrade is not required 
to run H3 software. 

Software support that takes advantage of all the capabilities of the SB1600 
is now available with the H3 release. Software support for tlie ME1600 with 
Winchester disk drives is also part of the H3 release; hovever, new PRCMS that 
perform a "boot from Winchester disk" in the terminator card are required. 

The H3 system pirovides a ccmTion bootable diskette for the ME1600, ^1600, 
and WD0900. 
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APPENDIX K. GLOSSARY 



ARRAY 

An ordered arrangenent of characters, for exan^e, a PACKED ARRAY 
OF CHAR. 



BACKUP FILE 

A copy of a file created for protection in case the primary file is 
destroyed mintentionally. 

BAD BLOCK 

A defective block on a storage medium, such as a disk, that produces 
a hardware error v\hen attempting to read or write data in that block. 

BASE SEGIENT 

The portion of a segmented program that is always memory-resident. 

BLOCK 

A group of characters or bytes transmitted as a unit; one disk block 
of 512 bytes. 

BOOLEAN \ARIABLE 

A variable which, v^en evaluated, produces either a true or felse 
result. 

BOOTSTE?AP 

A routine vhose first instructions are sufficient to load the remainder 
of the routine and possible other routines into memory from an input 
device. Normally, it starts a ccmplex system of programs. 



BUFFER 

A storage area used to hold information temporarily vyhen it is being 
transferred between two devices or between a device and mariory; often 
a specially designated area of memory. 



CODE FILE 

A file containing code to be executed; has the suffix of ".CODE". 
COMMAND or COMMAND NAME 

A word, mnemonic or character, by virtue of its syntax in a line of 
input, causes a predefined operation to be performed. 

COMMAND STRING 

A line of input that includes, generally, a ccrtmand, one or more 
file specifications, and optional qualifiers. 
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(XMPILE 



The production of binary code (mchine-readable) from synibciLic 
instructions written in a high-level language. 

CCMPILER 

Translates high-level language into machine code. 

COSIFIGURATION 

A particular selection of hardware devices or software routines or 
programs that function together. 

CONSOLE 

The terminal that acts as the primary interface betv\een the ccmputer 
operator/ user and the system; used to initiate and direct overall 
system cperation. 

CaJSTMTT 

A value that ranains the same throughout a distinct operation (as 
coipared to a variable) . 

COTTROL CmRACTER 

Controls an action rather that passing on data to a program. 

CREATE 

To cpen, write data to, and dose a file ficr the first time. 

EATA FILE 

A file containing data to be manipulated by a program. 

DEFAULT 

The value of an argument, operand or field assumed by a program if a 
specific assignment is not specified ty the user. 

DEVICE 

A hardware unit such as an I /o peripheral (disk, video terminal ) - 
the physical unit as opposed to VOLLME, the logical unit. 

DIRECTORY 

A table that contains the names of, and pointers to, files on a mass- 
storage device. 

DISASSEMBLER 

A program that displays object code in human readable form. 

EXPRESSION 

A ccrribination of carmands and operands that can be evaluated to a 
distinct result. 
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FILE 

A logical ccQ. lection of data treated as a unit; my be vork, code, 
text, fioto or data file. 

FILE SPECIFICATION 

A name that identifies uniquely a file maintained in any system; 
must contain, at a minimum, the file name; my also contain the volume 
niiTiber and name. 

FUNCTION 

A routine that returns a value. 



HEAP 

An area of memory used for c^niaraic allocation. Enseal pointer variables 
are allocated fron this area. 

HEXADECHyiAL 

Whole numbers in positional notation using 16 as a base. 

HIGH-LEVEL lANGUAGE 

A problem-oriented language rather that a mchine-oriented one. 



INITIALIZE 

Setting all hardware and softmre controls to starting values at the 
beginning of a new progreim. 

INTERRUPT 

The suspension of the normal programning routine to landle a sudden 
request for service. After coipletion of interrupt service, the 
program is resumed where it left off. 



KEYBCARD ENTRY TEVICE 

A device with a ke^bord (e.g., teletypewriter, video terminal) used 
by the system operator to control the system; CONSOLE. 



LIBRARY 

A collection of programs or subprograms contained as segments in 
a library file; normally contains frequently needed routines that my 
be accessed by other programs. 



LISTING 

A hard copy generated by a line printer. 

LITERAL 

The ejq^licit representation of character strings or integers. 



Page K-3 




LOAD 

To store a program or ciata in memory. 

LOGICAL DEVICE NAME 

An alphanixneric name assigned tay the user to represent a ];hysiGal 
device; used synonymously with the physical device name/nimber in the 
logical program. 

r^HINE LANGUAGE 

Instructions in binary code that can be operated on by the computer; 
as conpared with high-level languages that can be read and understood 
by the user. 



MAIN MmORY 

A set of storage locations connected directly to the processor. 



NESTING 

Routines enclosed within larger routines but not necessarily a part 
of the larger; a series of looping instructions may be nested. 

OBJECT CODE 

Relocatable machine-language code. 

OBJECT PROGRAM 

Ihe source language program after it las been translated into machine 
language; output of the Gonpiler. 

asr-iiNE 

Equipment and devices directly connected to, and ocaitrolled by, the 
central processing unit. 

OVERLAY SEGMENT 

A segment of code treated as a unit that can overlay code already in 
monory and be overlaid by otlier segments. 

OVERLAY STRUCTURE 

An overlay syston consisting of a root segment and, optionally, one 
or more overlay segments. 

PACK 

To cctrpress data in storage. 




PROCEDURE 

A routine that does not return a value. 



QUALIFIER 

A parameter specified in a cannand string that modifies seme other 
parameter . 

SOURCE LAMUAGE 

A system of symbols and syntax easily understood by people that is 
used to describe a procedure that a computer can execute, 

STACK 

A block of successive memory locations accessible from one end on a 
LIFO basis (last-in- first-out) . 

SUBSCRIPT 

A numerically valued expression or expression el orient that is appended 
to a variable name to uniquely identi:^ elements of an array. 

SWAPPING 

Copying areas of memory to mass storage and back in order to use the 
monory for twD or more purposes. 



UTILITY 

Any general-purpose program included in an operating system to perform 
cermon functions. 



VARIABLE 

The syrabdic representation of a logical storage location that can 
contain a value tliat changes during a discrete processing operation; 
as compared to constant. 
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THIS E?VGE IS If^JITWIONALLY LEFT BLANK FOR FO^TTING PURPOSES. 
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PUBLICATION OCMMENT FORM 



We need your help! 

This questionnaire is provided so that you, the user, can help us 
continually improve our custcmer support through accurate and 
easy-to-use docunentation. 

If you find any general or specific prctolems, please let us 
kno,>?. Even if yDU do not find prctoleins, your evaluation of 
this dcciment would be appreciated. Please send this 
questionnaire to; 

TBiEMICR(^aSIGINE OCMPANY 
Subsidiary of Vfestem Digital Corp. 

2445 McCabe Why 

Irvine, California 92714 

ATTN; Product Documentation 



Document Title; VTESTERN DIGITAL UCSD PASCAL (IM) III.0 
OPERATING SYSTEM REFERENCE MANUAL 

Document No.; WD9893 Date; July 1982 

YES NO Is this manual easy to read and understand? 



You (can, cannot) find 

things easily. 

Language (is, is not) 
appropriate . 

Organization (is, is not) 
logical 



Technical terms (are, 

are not) defined. 

Sentences and para- 
graphs (are, are not) 
coherent . 

Other; 



YES NO Are there enough examples? 



Exarrples (are, are not) Examples (are, are not) 

(practical, vorkable, adequately explained, 

relevant.) Other; 



YES NO Do the charts, figures, and illustrations help 



Visuals (are, are not) 
(well designed, clear). 
Other 



Labels and captions 
(are, are not) clear. 




YES 



NO 



Does the nanual explain all you need to know? 



additional information do you need? 



YES NO Is the information accurate? 



(Does, does not) contra- 
dict your knowledge of 
the product. (List spe- 
cific page and para- 
graph nurttoers b^cw. ) 



(Does, does not) con- 
tain typographical 
errors. (List spe- 
cific page and para- 
graph nurttoers below. ) 



In vhat ways do you use this document? 

Learning to use the Class instruction 

Reference aid Introduction to 

Other; product 



Any additional ocatments are appreciated. Iharik you. 



Name: 
Ccrrpany: 
Address ; 



Title; 

Division: 

City; 



State : 



Zip; 



Telephone; 



Date; 





